DUDLEY KNOX LIBRARY 
NAVAL POSTGRADUATE SCHOOL 
MONTEREY CA 93943-5101 



Approved for public release; distribution is unlimited 



AUTOMATED INTERFACE FOR RETRIEVING 
REUSABLE SOFTWARE COMPONENTS 



by 

Scott Joel Dolgoff 
Captain, United States Army 
B.S., Lehigh University, 1983 
M.B.A., Lehigh University, 1984 



Submitted in partial fulfillment of the 
requirements for the degree of 

MASTER OF SCIENCE IN COMPUTER SCIENCE 

from the 

NAVAL POSTGRADUATE SCHOOL 



September 1993 



REPORT DOCUMENTATION PAGE 



Form Approved 
OMB No. 07044188 



Pubic r ©porting b^ro©n tor this collection of information a ootimatod to average t hour per response rtcJudrrg tbe tma reviewing rtstruauons searching exetrvg data sources 
gatherrg and maintaining the data needed, and completing and reviewing the coflection of information. Sand comman ts regarding the btrden estimate or any other aspect of this 
collection of siformaton, including suggestions for reduang this burden to Washington Headquarters Services, Directorate for Information Operations and Reports, 1215 Jsfierson 
Davis Highway 5u*e 1204 Arlington, VA 22202-4302, and to the Offioe of Management and Budget Paperwork Reduction Project (0704-0188) Washington, DC 20503 



1 . AGENCY USE ONLY (Laava Blank) 2. REPORT DATE F3. REPORT TYPE AND DATES COVERED 

September 1993 1 Master’s Thesis, July 1991 - September 1993 


4. TITLE AND SUBTITLE 

Automated Interface For Retrieving Reusable Software Components 


5. FUNDING NUMBERS 


6. AUTHOR(S) 

Dolgoff, Scott Joel 


7. PERFORMING ORGANIZATION NAME(S) AND ADDRESSES) 

Computer Science Department 
Naval Postgraduate School 
Monterey, CA 93943-5000 


8. PERFORMING ORGANIZATION 
REPORT NUMBER 


9. SPONSORING/ MONITORING AGENCY NAME(S) AND ADDRESS(ES) 

Naval Postgraduate School 
Monterey, CA 93943-500 


10. SPONSORING 1 MONITORING 
AGENCY REPORT NUMBER 



11. SUPPLEMENTARY NOTES 

The views expressed in this thesis are those of the author and do not reflect the official policy or position 



of the Department of Defense or the United States Government. 



12a. DISTRIBUTION / AVAILABILITY STATEMENT 


12b. DISTRIBUTION CODE 


Approved for public release; distribution is unlimited. 





13. ABSTRACT (Maximum 200 words ) 

The Computer Aided Prototyping System (CAPS) software base contains software components described 
by formal specifications written in the Prototype System Description Language (PSDL). One problem addressed 
by this thesis is to develop a retrieval mechanism for extracting components that match user-provided PSDL 
specifications. Another problem addressed is the integration of a retrieved component into a software prototype. 
The approach taken was to match specifications by comparing operations and parameter types to include indirect 
subtype relations. Integrating a selected software base component required generating mappings to account for 
different operation and parameter orderings and, for generic components, automatic instantiation. The result was a 
tool which implements automated assistance for finding reusable components in a large software repository. 
Methods were developed for parameter and operator mapping, parameter type matching, and ensuring instantiation 
of a generic was possible. Upon receipt of a PSDL specification query, these methods are employed to automate 
the retrieval of all matching components and the integration of the selected component into the software prototype. 
This has been fully implemented for operator components and partially implemented for type components. The 
retrieval mechanism, a potential processing bottleneck, is extremely accurate and reasonably fast. A query on a 
1,000 component repository retrieved all 50 possible matches in under 3 minutes. 



14 SUBJECT TERMS 

Software Reuse, Component Retrieval, Type Matching, Generic Instantiation, 
Syntactic Matching, Type Hierarchy, Prototype System Description Language 


IS. NUMBER OF PAGES 

410 


l£. £hlCE CODE 


17. SECURITY CLASSIFICATION 
OF REPORT 

Unclassified 


18 SECURITY CLASSIFICATION 
OF THIS PAGE 

Unclassified 


19 SECURITY CLASSIFICATION 
OF ABSTRACT 

Unclassified 


20. LIMITATION OF ABSTRACT 

Unlimited 



NSN 7540-01-280-5500 Standard Form 298 (Rev. 2-89) 

i Prescribed by ANSI Sid. 239-1 8 



ABSTRACT 



The Computer Aided Prototyping System (CAPS) software base contains software 
components described by formal specifications written in the Prototype System 
Description Language (PSDL). One problem addressed by this thesis is to develop a 
retrieval mechanism for extracting components that match user-provided PSDL 
specifications. Another problem addressed is the integration of a retrieved component into 
a software prototype. 

The approach taken was to match specifications by comparing operations and 
parameter types to include indirect subtype relations. Integrating a selected software base 
component required generating mappings to account for different operation and parameter 
orderings and, for generic components, automatic instantiation. 

The result was a tool which implements automated assistance for finding reusable 
components in a large software repository. Methods were developed for parameter and 
operator mapping, parameter type matching, and ensuring instantiation of a generic was 
possible. Upon receipt of a PSDL specification query, these methods are employed to 
automate the retrieval of all matching components and the integration of the selected 
component into the software prototype. This has been fully implemented for operator 
components and partially implemented for type components. The retrieval mechanism, a 
potential processing bottleneck, is extremely accurate and reasonably fast. A query on a 
1,000 component repository retrieved all 50 possible matches in under 3 minutes. 



'-s 

I. INTRODUCTION 1 

A. THE SOFTWARE CRISIS 1 

B. RAPID PROTOTYPING 3 

C. COMPUTER AIDED PROTOTYPING SYSTEM (CAPS) 6 

n. SOFTWARE REUSE 8 

A. WHAT IS REUSE 8 

B. REUSE ISSUES 9 

1. Design For Reuse 9 

2. Maintenance Issues 9 

3. Legal Concerns 9 

4. Contractor Incentives 9 

5. Component Retrieval 10 

a. Recall 10 

b. Precision 10 

c. Ranking 10 

C. MODELING BEHAVIOR VERSUS CLASSIFICATION 1 1 

1 . Faceted Classification 11 

2. Modeling Behavior 13 

3. Comparing Syntactic Behavior and Faceted Classification 14 

III. CAPS SOFTWARE BASE 17 

A. COMPONENT STORAGE 17 

1. Relevant PSDL Attributes 17 

2. Storing a Component 19 

B. COMPONENT RETRIEVAL 21 

1. Browsing Through the Software Base 21 



IV 



NAVAL POSTGRADUATE SCHOOL 
MONTEREY CA 93943-5101 



2. Keyword Query 21 

3. PSDL Query 22 

IV. EXTENDING SYNTACTIC MATCHING 23 

A. DEFINITIONS 24 

1 . PSDL Specification 24 

2. Software Base Component 24 

3. Query Component 25 

4. Component Signature 25 

a. Parameter Types 25 

b. Input Parameters 28 

c. Output Parameters 28 

d. States 29 

e. Abstract Data Types 29 

B. SYNTACTIC MATCHING RULES 29 

1. Basic Rules for Operators 30 

2. Basic Rules for Types 30 

3. Extended Type Matching Rules for Operators 31 

4. Extended Type Matching Rules for Types 32 

C. A MECHANISM FOR SYNTACTIC MATCHING 33 

1. What Didn't Work - The Initial Attempt at Developing a 

Mechanism 33 

a. Signature Calculation 35 

b. Guaranteeing the Uniqueness of Signatures 36 

c. Problems With the Initial Mechanism 38 

2. A Successful Syntactic Matching Mechanism 40 



v 



a. Parameters as Patterns 42 

b. Pattern Matching 43 

c. Signature Representation 46 

d. Building the Signature 48 

e. Signature Matching 48 

f. Limitations with Composite Types 51 

g. Eliminating False Matches 52 

h. Measuring Signature Closeness 57 

i. An Additional Syntactic Matching Filter For Type 

Components 61 

j. An Additional Syntactic Matching Filter for Non- 

Generic Components 61 

k. An Additional Syntactic Matching Filter for Generic 

Components 63 

l. A Graphic Representation of the Syntactic Matching 

Filtering Mechanism 65 

D. IMPLEMENTATION DETAILS 67 

1 . Ada Language Usage Limitations 67 

2. Changes Made to the Original CAPS Software Base 68 

a. The Physical Schema for the Software Base 68 

b. Removal of the Generic Dictionary 69 

c. Addition of Operator Component Input and Output 

Signature Dictionaries 70 

d. Addition of Type Component Input and Output 

Signature Dictionaries 72 



vi 



3. Using PSDL to Specify Components 74 

a. General Assumptions 75 

b. Generic, ADT, and User Defined Type Definitions 76 

c. Input and Output Parameter Type Definitions 77 

d. Query by PSDL Specification 77 

4. Using the PSDL Grammar With User Defined Types 77 

5. CAPS Interface Requirements 78 

6. Program Flow, Source Code Files, and Data Files for 

Signature Encoding and Type Matching 78 

a. Operator Component PSDL Query 79 

b. Type Component PSDL Query 80 

7. The PSDL Ada Data Structure 81 

8. Ordering Retrieved Components 82 

a. Operator Component Match Ordering 82 

b. Type Component Match Ordering 82 

9. Ada/C++ Interface Issues 83 

10. Complexity Issues in Matching ADT Operators, Array 

Components, and Validating Generic Instantiations 83 

1 1 . Encoding Input and Output Signatures 84 

V. COMPONENT INTEGRATION 87 

A. THE PURPOSE OF COMPONENT INTEGRATION 87 

B. THE COMPONENT TRANSFORMATION PROCESS 89 

1. Mapping The PSDL Specifications 90 

2. Generating the Wrapper Package 93 

a. Incorporating the Ada With Clause 93 

vii 



94 



b. Parameter and Type Declarations 

c. Procedure Calls to Invoke Software Base Component 

Operators 95 

d. Excess Output Parameters in the Software Base 

Component 97 

e. Generic Instantiation 98 

VI. GRAPHICAL USER INTERFACE 99 

A. SOFTWARE BASE MAINTENANCE ROUTINE REMOVAL 99 

B. OPERATOR COMPONENT INTEGRATION 99 

VII. CONCLUSIONS AND FUTURE RESEARCH 103 

A. DEVELOP A FORMAL MODEL FOR SOFTWARE REUSE 104 

1. User Defined Types 104 

2. Type Constraints 105 

3. Relating PSDL to Ada 105 

B. POPULATE THE SOFTWARE BASE 106 

C. DEVELOP A SOFTWARE BASE MANAGEMENT GUI 107 

D. EXTEND USER DEFINED TYPES TO THE SOFTWARE BASE 107 

E. REDUCE THE USER INTERACTION WITH PARAMETER 

MAPPING THROUGH A PRE-MAPPING FUNCTION 108 

F. REMOVE PSDL SPECIFICATION LIMITATIONS 108 

1. Allow Extra Generic Parameters 108 

2. Make Secondary ADTs Visible to External Components 109 

3. Expand Array Component Definition 109 

4. Matching Composite Types 109 

5. Matching Constrained Types 1 10 

viii 



G. EXTEND ARRAY MATCHING, GENERIC INSTANTIATION 

VALIDATION AND INTEGRATION TO TYPE COMPONENTS 1 1 1 

H. IMPROVE SPEED AND EFFICIENCY 112 

LIST OF REFERENCES 114 

BIBLIOGRAPHY 117 

APPENDIX A - USER DEFINED TYPE EXAMPLE 119 

APPENDIX B - PSDL SPECIFICATION EXAMPLES 121 

A. PROTOTYPE PSDL SPECIFICATION 121 

B. SOFTWARE BASE COMPONENT PSDL SPECIFICATION 123 

APPENDIX C - WRAPPER PACKAGE EXAMPLES 126 

APPENDIX D - ADA SOURCE CODE 136 

APPENDIX E - C++ SOURCE CODE 271 

APPENDIX F - MODIFICATIONS TO ORIGINAL CAPS SOFTWARE BASE 

C++ SOURCE CODE " 315 

APPENDIX G - MODIFICATIONS TO ORIGINAL CAPS GRAPHICAL 

USER INTERFACE TAE SOURCE CODE 357 

INITIAL DISTRIBUTION LIST 394 



ix 



ACKNOWLEDGMENT 



I would like to thank Professor Luqi for bringing me into the CAPS team and for 
her guidance and many excellent suggestions that greatly improved the quality of this 
thesis. 1 would also like to thank Professor Shing for his constant support and patience, 
and the many hours we spent discussing a variety of approaches to take with this thesis. 

Additional thanks to Professor Berzins, Professor Volpano, and Professor Shimeall 
for their willingness to provide me with the benefit of their technical expertise along the 
way. 

This project owes a lot to the outstanding technical support available in the Naval 
Postgraduate School Computer Science Department. My thanks to Frank Palazzo, 
CAPS Lab Manager, for his terrific technical support and friendship during my graduate 
studies. Thanks also to Rosalie Johnson who could always find and eradicate the 
gremlins that inhabited the Unix operating system from time to time. 1 would also like to 
thank A1 Wong and Raquel Kerol for their support and assistance. 



x 



I. INTRODUCTION 



The goal of this thesis is to develop a software reuse tool that can serve as one of 
the building blocks of a rapid prototyping environment. The reasons why such a tool is 
desirable, the concept of rapid prototyping, and an on-going rapid prototyping research 
project at the Naval Postgraduate School are all discussed in this section. 

Section II discusses the field of software reuse to include pertinent issues, retrieval 
techniques, and a comparison of two principal strategies for implementing reuse. 

Section El describes the software reuse model, developed during prior research, that 
serves as the basis for this thesis. 

Section IV describes a new model for software reuse within a rapid prototyping 
environment and discusses both the logical extension of the original model as well as the 
implementation-based changes made to the original software reuse model so that an 
accurate trace of system evolvement can be achieved. 

Section V discusses the transformation of a software component selected for reuse 
into a component that is compatible with the rapid prototyping tool. 

Section VI discusses the graphical user interface for the software reuse tool that 
allows software components to be searched, examined and selected. 

Section VII provides concluding remarks about the utility of the new software reuse 
model and tool along with recommendations for improvements and related areas for 
future research. 

A. THE SOFTWARE CRISIS 

For over a decade now the term "software crisis" has been used to define the current 
status of software development practices. While an ever increasing backlog of requests 
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for new software can be considered a part of the crisis, it is just one of the symptoms of 
the underlying problem. Far more important is the fact that improvements made in the 
areas of software quality and productivity do not come close to matching the increased 
complexity of today's software requirements. This is truly the essence of our software 
crisis. 

Here is a summary of costs versus utilization of nine Department of Defense 
software development contracts worth $6.8 million. It is an excellent example that 
illustrates the extent to which today's software engineering practices fail to manage the 
development of complex systems: [FFN91] 

• Delivered software never used successfully ($3.2 million) 

• Software paid for but not delivered ($1.95 million) 

• Software delivered and used, but requiring extensive rework or later abandoned 
because rework could not be accomplished ($1.3 million) 

• Software used as delivered ($0. 119 million) 

Grady Booch states that "It is our human inability to deal with complexity that lies at the 
root of the software crisis. "[Booc87] This crisis is characterized by systems today that 
are delivered late, over cost, with low reliability and quality, and that don't meet the 
requirements. Some of these symptoms are related to software development tools. The 
desire to develop a new language in accordance with software engineering principles was 
the guiding force behind DoD's development of Ada from the late 1970's to the early 
1980’s. Other symptoms are unrelated to technical concerns but rather identify 
managerial problems with current software development practices. Meanwhile, the DoD 
software costs continue to rise from $3 billion in the early 1970's to over $32 billion in 
1990. [Booc87] 
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One promising area to focus research efforts in appears to be the early stages of the 
software development life cycle model. These stages are composed primarily of defining 
requirements, analyzing those requirements, and developing specifications from the 
resulting analysis. This is where the first attempt to manage system complexity is made 
and is the focal point of interaction between system users and developers. This is also 
the basis on which all subsequent design and implementation decisions will take place. 
As described by Edward Yourdon, 50% of all errors are made during the systems 
analysis and the cost to remove these errors account for 75% of the total error removal 
costs [Your89]. The reason these errors are so costly is due the ripple-through effect 
they have on the rest of the system. The later they are caught, the greater the chance 
that they will have impacted other aspects of the system that may have to be modified. 
Rapid prototyping is a development technique designed to find these errors at the outset 
of the software development process. 

B. RAPID PROTOTYPING 

Rapid prototyping is a development technique that attempts to alleviate the 
sequential rigidity of the classical waterfall method of software development. The 
waterfall method is a sequential process that moves forward one phase at a 
time.[Royc70] The phases consist of requirements definition, functional specification, 
design, implementation, and testing. Errors made in one phase are propagated forward. 
No feedback mechanism exists between phases and so problems discovered at the end 
require a new start back at the beginning. 

Rapid prototyping attacks the inefficiencies of the sequential waterfall model by 
following a spiral model that allows the different life cycle phases to progress in a more 
parallel fashion. [Boeh87] Each phase is worked through incrementally. Initially, the 



3 



basic requirements are determined, basic specifications are developed, a rough design is 
created and implemented, and some minor testing is performed. The goal is not to get 
everything right the first time, but to be able to come up with a quick skeleton of the 
desired system that can be shown to the user. Here is an model of the prototyping 
process [Luqi89]: 
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The user looks at the "work in progress" and communicates what is right and wrong. 
Changes are made to requirements, specifications, design and implementation and then 
the next iteration of the "work in progress" is available for user examination. This is an 
iterative process and is designed to facilitate communication between developers and 
users. By maintaining the involvement of all interested parties throughout each iteration, 
maximum participation is achieved. Errors are caught early and ambiguities can be 
highlighted and resolved via group interaction. The end goal of this process is not a 
production system (normally). The end goal is an accurate and unambiguous set of 
requirements and specifications that form the basis of the subsequent production system. 
Because rapid prototyping addresses the potentially costly errors early in the 
development process, its contribution to software development can be significant 

The more functionality that can be incorporated into the prototype, the greater the 
likelihood that what the user is being shown is a close approximation of the desired 
system. However, the process of generating functionality is normally labor intensive 
(coding the implementation) and is in direct conflict with the prototyping goal of rapid 
turnaround. One solution to including more functionality into the prototype while at the 
same time supporting the rapid turnaround requirement is the concept of software reuse. 
A broad definition of software reuse is "the reapplication of a variety of kinds of 
knowledge about one system to another similar system in order to reduce the effort of 
development and maintenance of that other system. "[BP89] A simple example of 
reusing code would be a requirement that the prototype be able to sort a list of names. 
Commonly the prototype development team would either write a sort routine or leave 
the requirement as an unimplemented stub in the prototype. If software reuse is 
employed, a library of software components would be accessed, a sort routine searched 
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for and, finally, integrated into the prototype. Thus, software reuse appears to have 
considerable potential as a supporting process for rapid prototyping. 

C. COMPUTER AIDED PROTOTYPING SYSTEM (CAPS) 

The Computer Aided Prototyping System (CAPS) is an ongoing research project in 
the Software Engineering Department at the Naval Postgraduate School. CAPS is used 
to prototype hard real-time systems. Its primary goal is to focus on the requirements, 
specification, and design phases of the software development life cycle. Errors and 
ambiguities in these phases are resolved during the many iterations of 
developer/customer interaction inherent in the prototyping methodology. This process 
provides increased productivity and reliability which in turn lead to better maintainability. 

The ability to work at a very simple level is the heart of the CAPS design model. 
CAPS is built around the fact that all computer programs can be described or designed in 
terms of operators (functions or processes) and types (data streams or data structures) 
[LK88]. Concentrating on these two simple but fundamental components provides us 
with a limited set of representations which greatly aids the management of complexity in 
large systems. The Prototype System Description Language (PSDL) forms the basis for 
the CAPS computational model [LBY88]. All specifications for the prototype are 
written in PSDL. 

As a prototyping tool, CAPS is actually a set of tools with a common user interface. 
These tools include a syntax-directed editor, graphics editor, design database, software 
base, and an execution support system [Luqi89]. This thesis focuses on the CAPS 
software base, a library of reusable software components. The expression "software 
base" will be used throughout this thesis to refer to both the physical entity that serves as 
a storage facility for reusable components and the abstract concept of a library of 
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software components that can be retrieved for reuse. The following figure provides an 
overview of the CAPS tools [Cumm90]]: 
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II. SOFTWARE REUSE 



A. WHAT IS REUSE 

System source code is just one of the many deliverables upon completion of a large- 
scale system development effort. Requirements documents, functional specifications, 
architectural designs, test suites and designs, and many other forms of documentation 
and code are also essential components of a fully functional and maintainable system. 
Reuse, as defined earlier in Section I, seeks to capitalize on the knowledge and effort 
represented by all of these system deliverables. Most software under development today 
is not unique; that is, it has already been written in either the exact same or very similar 
form. However, despite the large chunks of commonality with already developed 
systems, new requirements are written, new specifications and designs are developed, 
and new code is written. The ability to reuse existing designs and code can significantly 
enhance productivity and reliability. 

The greatest payoff appears to lie in the reuse of design level information. With the 
growing research into formal specification languages, automatic code generation will 
likely become a reality within the next decade or so thereby reducing the usefulness of 
reusing code. But the design process is another matter. As long as humans are involved 
with communicating ideas and creating requirements for systems, having an existing base 
of design templates to draw from will be a great enhancement to productivity. [BL91] 

This thesis focuses on the reusability of code. Despite the fact that design reuse will 
ultimately be more important in the long run, code reuse can be of significant benefit in 
support of such techniques as rapid prototyping in the short run. 
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B. REUSE ISSUES 

It is interesting that implementing software reuse is not primarily a technical 
challenge. While some aspects of reuse such as efficient and effective component 
retrieval rely on improved technological advances, other aspects are more managerial in 
nature. There are several issues to consider [Hoop89]. 

1. Design For Reuse 

There is more effort and thus more time and cost involved in designing a 
software component so that it can be reused later. If systems are to incorporate future 
reusability, support must come from top management. Incentives must be built into the 
development process to motivate the program manager to design with reuse in mind. 

2. Maintenance Issues 

Regarding deliverable software to the government, some organization(s) must be 
responsible for maintaining a library of reusable components. Access to the library must 
be provided. A question to be resolved is whether the organization maintaining the 
library should be responsible for testing components before adding them to the library. 

3. Legal Concerns 

The question of who should be allowed access to government reusable 
component libraries must be resolved. In addition, should library access be provided as a 
service at a set fee? Should the government assess a charge for each retrieved 
component? Most importantly, who is liable if a retrieved component is responsible for a 
system failure? It could be the government, the original developer of the component, or 
even the component librarian. 

4. Contractor Incentives 

Arguments can be made on both sides of this issue. A contractor could lose 
money by retrieving reusable components from a software library because he would earn 
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more money from writing the code from scratch. On the other hand, it can be argued 
that reuse of components should be factored into the competitive bidding process for 
government contracts and ultimately lower the overall cost to the government. The 
solution probably lies in between these two extremes, but it will be up to the government 
to establish an environment conducive to contractor support of reuse. 

5. Component Retrieval 

The more components a reuse library is populated with, the greater the likelihood 
that a specific search will find something useful. However, there is a tradeoff. Even if a 
component is found that exactly meets your requirements, productivity will not have 
been enhanced if the search process took longer than it would have taken to simply code 
the component by hand. There are numerous techniques to retrieve reusable components 
from libraries. These include browsing, keyword searches, multi-attribute searches, 
syntactic matching, and semantic matching [Stei91, McDo91, Ozde92]. 

It is necessary for retrieval techniques to be fast and accurate. Three concepts 
applicable to retrieval issues are recall, precision, and ranking [WS88]. 

a. Recall 

Recall defines the percentage of relevant components (i.e., components that 
match what you are searching for) that are retrieved from the set of relevant components 
available in the reusable component library. 

b. Precision 

Precision defines the percentage of retrieved components that are actually 

relevant. 

c. Ranking 

Ranking lists the retrieved components in order from best to worst match. 
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C. MODELING BEHAVIOR VERSUS CLASSIFICATION 

It is useful to examine the methodology used today for software component retrieval 
and compare it against the retrieval technique this thesis employs. 

1. Faceted Classification 

The reuse strategy that is the most widely used and mature today is that of 
faceted classification.[PF81 ] Faceted classification is a methodology for software 
component retrieval developed by Dr. Ruben Prieto-Diaz in his 1985 dissertation and is 
modeled after techniques utilized in the library management sciences. The goal with 
faceted classification is to derive a scheme for grouping similar software components. 
The classification scheme is developed by defining a set of facets , or elemental classes, 
that adequately describe a software component. Examples of these facets for a software 
component are Functions (what the component does), Objects (what type of data the 
component works with). System Type (database, compiler, etc.) and Setting (business 
domain it will be used in). Within each of these facets are numerous elements called 
terms that define the valid member set of a facet. For example, Append, Encode, Create, 
and Format are all terms in the Function facet. When a software component is stored, an 
entry in a retrieval table is made of the most relevant term describing that component for 
each of the classification scheme's facets. These facets can be tailored to fit specific 
problem domains. 

When searching for a software component, a query is made that consists of a n- 
tuple where n is the number of facets in the classification scheme. A term that best 
describes the desired component is entered into the n-tuple for each facet. Wild cards 
may be used that provide more flexibility in the kinds of components retrieved. When a 
wild card is used, no term is given for that particular facet. The retrieval mechanism then 
retrieves all components that have been described in the same manner. An evaluation 
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mechanism provides assistance during retrieval to provide components that are close to 
the requested description if no exact matches are found. 

Customization of the classification scheme for a particular problem domain is a 
powerful feature of faceted classification. Domain analysis is a technique for defining 
reusable components and grouping them by common domain. [AP91] It is based on the 
premise that reusability has two basic cornerstones. First, that problems and their 
solutions are domain specific and, within those domains, share common attributes and 
environmental considerations. Second, the effort required to capture domain specific 
information that defines and organizes reusable items is worthwhile because we are 
assured of seeing the same types of problems many times in the future. In conjunction 
with domain analysis, faceted classification appears to be well suited for fixed domain 
software reuse. 

The Department of Defense is heavily involved in establishing reuse libraries to 
boost software development quality, productivity and timeliness. Many of the more 
prominent libraries established to date such as the Asset Source for Software 
Engineering Technology (ASSET) and the Defense Software Repository System 
(DSRS) employ faceted classification and are attempting to utilize domain analysis to 
further specify their libraries. [Endo92] Commercial reuse library tools such as the 
Reusable Software Library and InQuisix also use a software classification approach for 
component retrieval [SPS93, BABKM87]. DSRS has over 2,000 components in its 
software library. Many of these were from the Army's Reusable Ada Products for 
Information Systems Development (RAPID) reuse library. Retrieving components from 
DSRS across the Internet in early 1993 proved to be cumbersome. The selection of 
facets was very slow. However, it is likely that these are interface problems that have 
been or will be easily cleared up. The ASSET repository has 142 resources consisting of 
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over 1,500 files [MM91]. Attempts to retrieve components from ASSET over the 
Internet in early 1993 went smoothly. 

While faceted classification offers advantages over a simple keyword search 
mechanism due to a more rigorous and uniform component definition mandated by the 
classification scheme, it is still restricted to forcing the description of a component within 
a limited set of facets and terms. Ultimately what we would like is to be able to describe 
the behavior of a component and retrieve similar components on that basis. 

2. Modeling Behavior 

A modeling language is needed to define a wide class of models in a uniform 
manner. One critical aspect that this language would address should be component 
behavior. Attempts to create a behavioral model have focused on two levels. At the 
simpler level is syntactic behavior modeling that attempts to characterize a program's 
behavior in terms of its interface or number and types of input and output parameters 
[McDo91, SLB92]. The composition of input and output parameters form a "program 
signature" that partially characterizes the component's public behavior. That is, behavior 
that is made observable to the rest of the world in the program specification. The 
complexity of modeling syntactic behavior is greatly increased when the recognition of 
not only the number of input and output parameters, but their types as well, becomes a 
part of the behavioral model. Scanty literature is available on this subject. While the 
use of types as search keys for component retrieval has been described, those 
descriptions have been restricted to the field of functional programming [Ritt89, RT89]. 
Adding type information to the behavioral model introduces certain concerns specific to 
Ada. Ada packages whose parameters could be user defined types or even generics must 
be considered. In addition, subtype relations must be considered. Parameter types may 
not match exactly but can still logically map to an ancestor or descendant type in the Ada 
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type hierarchy, depending on whether you are working with input or output parameters 
respectively. For example, a query component input parameter of type Positive is 
compatible with and therefore matches its ancestor type Integer in the software base 
component. Thus, the process of encoding behavior into a signature that will be 
recognized and selected when an equivalent but inexact behavior is described has many 
intricacies. 

The second and more complex level of behavioral modeling is semantic 
behavioral modeling. This is an attempt to characterize the implementation of the 
program in addition to its interface. A dissertation by Robert Steigerwald discusses 
semantic matching [Stei91]. The two different forms of behavioral modeling are most 
effective when used in combination. The simpler, and more importandy, faster syntactic 
matching serves as an initial filter eliminating all components that are not compatible 
with the specified input/output behavior. The subsequent reduced set of components is 
then passed on to the semantic matching algorithm which attempts to match and rank the 
correct component(s). If multiple components remain, the designer can browse through 
them to determine which, if any, will best satisfy his or her needs. 

3. Comparing Syntactic Behavior and Faceted Classification 

After examining two methods for component retrieval, faceted classification and 
behavioral modeling, the natural question is which technique is better. While concerns 
about efficiency are always important, the issues of precision and recall are even more so 
and in that context the two methodologies can be contrasted. We will use syntactic 
matching as the tool with which to consider behavioral modeling. 

The appeal of faceted classification is that it casts a fairly wide net and is certain 
to retrieve components that are at least conceptually similar to the component being 
searched for. Because numerous facets can be employed, the component library is 
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substantially reduced on the first pass and may be judiciously reduced by subsequent 
narrowing of scope (few or no wild cards). Faceted classification also provides tools for 
measuring and defining "closeness" so that a search can be expanded if the qualifying 
facet terms prove too narrow [PF87]. Looking at the other alternative, the issue of 
"casting a wide net" is an area in which syntactic matching has to be very careful. It is at 
its best when retrieving an exact match; that is the input/output parameters of the 
retrieved component(s) exactly match the input/output parameters of the query 
component. However, as most reuse literature suggests, the predominant results of 
component retrieval will be inexact matches with necessary modifications subsequent to 
the retrieval. In this more likely scenario, syntactic matching looking for exact matches 
is very unforgiving and will likely exclude valuable components that match closely but 
not exactly with the query component. Therefore the design of the syntactic matching 
algorithm must be somewhat forgiving if it is to be effective. Despite these concerns, 
syntactic matching has benefits not found in faceted classification. One advantage of 
syntactic matching is that because it more closely models behavior, it is possible to locate 
reuse components whose behavior is analogous to the query component yet may not fall 
into the general conceptual/categorical context of the query component [MS92], This is 
a case where a valid component would not have been retrieved through faceted 
classification. Because prototyping can often be used to explore new domains that do 
not have well developed domain models, cross-domain reuse is important in such a 
context. So in the category of recall, syntactic behavior retrieves more of the existing 
relevant components. 

Neither faceted classification nor syntactic matching can do much to improve 
precision, the percentage of retrieved components that are actually relevant. However, 
syntactic matching has a big advantage here as well because it is only the first filter in the 
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behavioral model designed to weed out components that do not match and then pass the 
remaining candidates on to a semantic filter which, by its very nature, will improve the 
final retrieval precision. Thus, while behavior is harder to model, it is inherently more 
powerful. 

This thesis builds on prior research to utilize the robust behavioral model for 
retrieving reuse components, providing important advantages over the reuse technology 
dominating the field today [McDo91]. These advantages are in the following areas: 

• component retrieval recall 

• component retrieval precision 

High recall is ensured by the syntactic matching techniques described in this thesis. A 
high level of precision is realized through subsequent semantic filtering [Stei91]. 
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III. CAPS SOFTWARE BASE 



Initial implementation of the CAPS software base was first explored in a thesis by 
Daniel Galik [Gali88]. Actual implementation of the software base was accomplished by 
John McDowell [McDo91]. McDowell's implementation uses ONTOS, an object 
oriented data base management system that provides an interface to C++ for 
customization and flexibility. [Onto91] Good descriptions of the CAPS software base 
are provided by both McDowell and Ozdemir [McDo91, Ozde92]. As a repository for 
reusable software components, the CAPS software base supports two critical functions; 
component storage and component retrieval. 

A. COMPONENT STORAGE 

Each software component to be stored in the CAPS software base must have a 
Prototype System Description Language (PSDL) file.[LBY88] The PSDL file provides 
information about the software component that is used to determine how the component 
is stored. Although a PSDL file contains information about a variety of attributes of a 
real-time software component, we will only be concerned with the attributes that relate 
directly to the component retrieval mechanism developed by McDowell and extended in 
this thesis. 

1. Relevant PSDL Attributes 

A software component is stored on the basis of its signature or interface to the 
outside world. The PSDL attributes that comprise this interface include the generic, 
input, and output parameters of the component as well as whether or not it is a state 
machine. The role of the component, type (abstract data type) or operator (procedure), 
is also considered as part of the interface for storage purposes. All these PSDL 
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attributes can be combined to form a multi-attribute key that uniquely identifies all 
components that share a given set of attribute values [SLM91]. The following simple 
example shows an Ada package specification and its corresponding PSDL specification 
file: 



Ada Package Specification: 




package Example_Pkg is 




procedure Example (Numl : in 


Integer; 


Num2 : in 


Integer; 


Result : 


out Integer); 


end Example_Pkg; 




PSDL Specification: 




OPERATOR Example 




SPECIFICATION 




INPUT Numl : Integer, 




Num2 : Integer 




OUTPUT Result : Integer 




KEYWORDS example, add 




END 





Figure 3 - Ada Package Specification with Corresponding PSDL 



Specification 

Note that the keywords attribute is also listed in Figure 3. Keywords are used in one 
form of component retrieval and will be described shortly. 
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2. Storing a Component 

The first determination of how a component is stored is dependent on whether 
the component is a type or an operator. References to types are stored in an ONTOS 
class called the SB_ADT_Component_Library and references to operators are stored in 
the SB_Operator_Component_Library. To illustrate the component storage process, we 
will concentrate on the storage of operators. Storage of both types and operators is 
described in detail by McDowell [McDo91]. 

The principal storage structure for all components is the ONTOS Dictionary 
class. A Dictionary is an object that stores key-element data pairs. The key can be used 
to order and retrieve the data in the dictionary. The element normally represents the 
specific data entity to be stored. Because ONTOS is built around an object oriented 
environment, the element is often an object. Figure 4 below provides a conceptual 
representation for how operators are stored in the CAPS software base. It has been 
reduced from its actual scope to simplify the explanation [McDo91]: 
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Regular ellipses represent objects. Shadowed ellipses represent Dictionary objects. 
Rectangles represent Dictionary keys. Figure 4 depicts a storage nierarchy of objects. 
All objects are only stored once in a distinct physical location. References to those 
objects can then be stored within other objects. That is the role served by the above 
dictionaries. Their elements are actually references to other objects. When the operator 
software component Example from Figure 3 is stored in the CAPS software base, its 
PSDL specification is first parsed for information that will be stored to help aid 
subsequent retrieval requests. Because it is an operator , we start in the 
Operator_Component_Library. A reference to Example is placed in Component 
Dictionary 1. This is used to provide quick access to a list of all the software base 
operator components which can then be used to browse through the software base. 
Next, because there is no state information for Example we move to the Non-State 
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Dictionary. Example has two input parameters, so we now move to the Output 
Dictionary2 object that corresponds to the key value 2 for the Non-State Dictionary. 
Example has one output parameter. In the Output Dictionary2 element. Component 
Dictionary3, that corresponds to a key value of 1, we store a reference to the software 
component Example. Thus, with the information about its state, number of input 
parameters, and number of output parameters, a reference to Example has been stored in 
a complex data hierarchy that will allow us to retrieve it by submitting the correct 
information in the form of a multi-attribute key [SLM91]. 

B. COMPONENT RETRIEVAL 

Retrieving software components is an important part of the reuse process. There 
are currently three methods available to perform component retrieval from the CAPS 
software base. They are browsing, keyword query, and PSDL query. 

1. Browsing Through the Software Base 

Browsing through the CAPS software base is a very simple process. The user 
selects either the type or operator domain, and then a listing of all available components 
in the chosen domain is displayed. The user can skim through that list and select 
individual components for more detailed examination. 

2. Keyword Query 

For this retrieval mechanism, the user selects one or more keywords from a list of 
all keywords currently used in software components in the CAPS software base. An 
ONTOS Dictionary object called Keyword_Dictionary is then scanned. Its keys are the 
keywords and its elements are Component_Dictionary objects similar to the ones 
described in Figure 4 above. Each keyword maps to a Dictionary object that contains 
references to all components with that particular keyword in their PSDL specification. 
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When the scan is complete, the user is presented with all components that have at least 
one of the user's selected keywords. The components are listed in descending order with 
the components that have matched the most user keywords listed at the top. 

3. PSDL Query 

A PSDL query requires the user to provide a PSDL specification as the query. This 
specification is then compared against the PSDL specifications of the components in the 
CAPS software base to see if any are a valid match. Rather than having to compare the 
query against each software base component, the hierarchical methodology for storing 
information about the software base components serves as a very efficient filter for 
retrieving only the matching components [McDo91], Using Figure 4 as an example, 
suppose we have a PSDL query specification that has two input parameters, two output 
parameters and no states. The retrieval mechanism, working from the information 
parsed from the PSDL query, immediately eliminates all components stored within the 
State_Dictionary. Next, the dictionary of components with two input parameters is 
extracted, eliminating all components with less than or more than two input parameters. 
Finally, a set of Component_Dictionary3 dictionaries is extracted. Each 
Component_Dictionary3 in the set contains all components with two (or three, or four, 
etc.) output parameters (and by the path of extraction, two input parameters and no state 
variables). This group of components is then presented to the user as all the valid 
matches for the particular PSDL query. The reason we might have more than one 
Component_Dictionary3 extracted is that a software base component with a greater or 
equal number of output parameters than a query component is considered to match the 
query component as long as both components have the same state and same number of 
input parameters. 
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IV. EXTENDING SYNTACTIC MATCHING 



A PSDL specification defines the public view or interface of a software component 
while the actual implementation remains hidden. Syntactic matching is the process of 
comparing a query component's PSDL specification with a software base component's 
PSDL specification to determine if their interfaces are similar. Any component that 
satisfies a given specification must have a compatible interface, so we can quickly 
exclude from consideration all the components that do not meet this criterion. The 
syntactic matching process used in this thesis is an extension of the process used in a 
thesis by John McDowell. [McDo91] McDowell developed a theoretical formalization of 
syntactic matching that includes the component input and output parameter types. He 
also implemented a matrix scheme that provided a storage structure to address the 
matching of subtypes. However, McDowell's implemented syntactic matching process 
did not include matching parameter types. In this thesis we extend McDowell's 
theoretical formalization of syntactic matching to include subtypes. And where 
McDowell's implementation used multi- attribute keys that were limited to matching 
components based on attributes such as numbers of generic, input, and output 
parameters or number of operators (within an abstract data type) of a PSDL 
specification, here we extend McDowell's implementation by including the type of the 
parameters in the match procedure. 

The goal of syntactic matching is to provide a fast method for selecting a subset of 
components from the software base that have a likelihood of providing the behavior 
required by the query component. This retrieved subset of candidate solutions to the 
query will then be passed to a semantic matching process. Semantic matching explores 
both the external and internal behavior of a component utilizing normalized algebraic 
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specifications [Stei91]. Thus the critical role syntactic matching plays is to shrink the list 
of candidate components in a very quick manner which can then be examined via the 
rigorous and consequently much slower semantic matching process. The power of 
syntactic matching is its ability to execute the match process rapidly with a high degree 
of recall. Semantic matching, on the other hand, matches much more slowly but with 
high precision. [SLB92] 

The following guidelines describe aspects of the syntactic matching process for both 
PSDL operators and types. The matching process takes a PSDL specification supplied 
by the CAPS prototype designer and retrieves all software components from the 
software base that have a similarly defined PSDL specification. The expression 
"similarly defined" will be described formally along with the description of the matching 
process below. 

A. DEFINITIONS 

Before describing the syntactic matching process it is necessary to define all the 
terms and notation used in the process. 

1. PSDL Specification 

The PSDL specification for a component is denoted by PS. 

2. Software Base Component 

The software base component is denoted by sbc. The PSDL specification of a 
reusable software component stored in the software base would therefore by denoted by 
PS(sbc). 
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3. Query Component 

A query component refers to the component that the CAPS prototype designer is 
in the process of finding a software base match of and is denoted by qc. The PSDL 
specification for that query component would therefore be denoted by PS(qc). 

4. Component Signature 

The component signature refers to the types of the component parameters. 
There is a separate signature for input and output parameters. A signature is encoded 
with information that describes each instance of all Ada types used by a component. For 
example, if an operator component has two input parameters of type Integer, an input 
parameter of type Boolean, and an input parameter of type Range, then the input 
signature for that operator would be encoded with two instances of Integer, one instance 
of Boolean, and one instance of Range. Signatures for types are treated a little 
differently and reflect the parameter type information contained in the aggregation of all 
the abstract data type's operators. So, for example, let us take a type that has two 
operators, type_operatorl and type_operator2. Type_operatorl has one Boolean input 
parameter and one Integer input parameter. Type_operator2 has one Integer input 
parameter. The input signature for this type would therefore be encoded with two 
instances of Integer and one instance of Boolean, reflecting the aggregation of the input 
parameters of the abstract data type's operators. 

a. Parameter Types 

Parameter types are easy to match if, for example, an input PS(qc) parameter 
is exactly the same type as an input PS(sbc) parameter. However, just because the 
parameter types do not match exactly does not mean they do not match. Because Ada 
employs a well-defined type hierarchy that is based on inheritance and subtyping, in some 
cases parameters of what appear to be different types can be matched. [Booc87] It is 
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also possible to include a parameter type in a specification that is not predefined by Ada. 
This is called a user defined type (UDT). A UDT must be defined as a type in the 
specification of the prototype if it is to be referenced by another type or operator. The 
UDT specification provides a critical link in the parameter type matching process by 
including a reference to the Ada type that defines the UDT. An example of this can be 
examined in Appendix A. 

The types Private, Discrete, Array, Digits, Delta, Range, and Access can 
appear in specifications of generic parameters for generic Ada components. [Ada83] The 
types Private, Discrete, Integer, Range, Natural, Positive, Enumeration, Character, 
Boolean, Access, Record, Array, String, Digits, Float, Delta, and Fixed are predefined 
types in Ada. The following figure depicts a partial ordering of the Ada type hierarchy: 
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In Figure 5 we see that, for example, an input PS(qc) parameter of type POSITIVE 
could be matched to an input PS(sbc) parameter of type INTEGER. It is important to 
note that this mapping is only allowed in one direction. The direction is dependent on 
whether you are working with input or output parameters. We could not take an input 
PS(qc) parameter of type INTEGER and match it to an input PS(sbc) parameter of type 
POSITIVE. This is because every input value that is consistent with the query 
specification must be a legal input of the software base component and every output 
value that can be produced by the software base must be consistent with the query 
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specification. Again, note that the required subtype relations go in opposite directions 
for input and output parameters. The type hierarchy follows a partial ordering scheme. 
As a partial ordering, this hierarchy is by definition reflexive, anti-symmetric, and 
transitive [Epp90]. This type hierarchy takes into account all type names that the 
PS(qc) can expect to reference. To illustrate type relationships within the hierarchy, 
suppose we have a parameter type T and another parameter type t such that t is a 
subtype of T. For example. Natural is a subtype of Integer. By definition of a subtype, 
t must be a descendant of a T with respect to Figure 5, or t must equal T [Booc87]. 

b. Input Parameters 

Each input parameter has an identifier name and a corresponding type. The 
identifier name is represented by p. All identifiers in a PSDL specification must have 
unique names. The expression input_type(p, sbc) refers to the parameter type for a 
given input parameter p in the component sbc. And input_type(p, qc) refers to the 
parameter type for a given input parameter p in the component qc. The expression 
In(sbc) refers to the entire set of input parameter identifier names for a given software 
base component, and ln(qc) refers to the entire set of input parameter identifier names 
for a given query component. As an example, suppose we have a query component with 
two Integer input parameters pi and p2, and one Boolean input parameter p3. For p 
equal to pi or p2, input_type(p, qc) would return Integer. For p equal to p3, 
input_type(p, qc) would return Boolean. And In(qc) would be the set {pi, p2, p3}. 

c. Output Parameters 

The definitions for the output parameters are very similar to the input 
parameters. The expression output_type(p, sbc) refers to the parameter type for a 
given output parameter p in the component sbc. And output_type(p, qc) refers to the 
parameter type for a given output parameter p in the component qc. The expression 
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Out(sbc) refers to the entire set of output parameter identifier names for a given 
software base component, and Out(qc) refers to the entire set of output parameter 
identifier names for a given query component. 

d. States 

The expression ST(sbc) is a boolean function that evaluates whether the 
software base component is a state machine or not. ST(qc) performs the identical 
function for the query component. 

e. Abstract Data Types 

Abstract data types (types) have certain definitions that operators do not. 
ADT(sbc) denotes the set of all abstract data types in a type software base component 
and ADT(qc) denotes the set of all abstract data types in a type query component. An 
abstract data type within a type component is a reference to a distinct type name that 
appears in the type declaration part of the type component's PSDL specification. 
OPS(sbc) denotes the set of all ADT operators in a type software base component and 
OPS(qc) denotes the set of all ADT operators in a type query component. Because we 
are dealing with aggregates, the expression Tot_In(sbc) refers to the entire set of input 
parameter identifier names over all operators of a type software base component and 
Tot_In(qc) refers to the entire set of input parameter identifier names over all operators 
of a type query component. Tot_Out(sbc) and Tot_Out(qc) are defined in the same 
manner but for output parameters. 

B. SYNTACTIC MATCHING RULES 

The initial set of syntactic matching rules with one modification are taken from 
McDowell’s thesis and they serve as the basic rule set [McDo91]. The modification 
pertains to McDowell's treatment of user defined types. McDowell called user defined 
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types unrecognized types and created a rule between software base component generic 
parameters and query component unrecognized type parameters. However, this thesis 
does not permit unrecognized types and forces all query component parameters to be 
defined as Ada types. That is not to say that a query component parameter cannot be 
defined as a user defined type. It can. But ultimately by transitivity, a referenced user 
defined type must be defined in terms of an Ada type (see Appendix A). 

The basic set of rules are used as the first filter in the syntactic matching process. 
These rules differ slightly between operators and types. This thesis augments those rules 
by including rules specific to parameter type matching. NUM(X) is defined as a function 
that returns the cardinality of the set represented by X. 

1. Basic Rules for Operators 

Basic rules for operators are primarily concerned with comparing number of 
parameters and are listed as follows [McDo91]: 

• NUM(In(sbc)) = NUM(In(qc)) 

• NUM(Out(sbc)) > NUM(Out(qc)) 

• ST(sbc) = ST(qc) 

The number of software base component input parameters must equal those of the query 
component. The number of software base output parameters must be equal to or greater 
than those of the query components. And both components must either be state 
machines or not be state machines. 

2. Basic Rules for Types 

A PSDL type consists of one or more abstract data types (ADT) and zero or 
more operators (OPS). When initially matching PSDL types it is useful to aggregate 
operator input and output parameters. These aggregate values can be used to compare 
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two components. For example, a type component with three operators that each have 
two input parameters would have an aggregate input parameter value of six (three 
operators times two input parameters each). If the aggregate values do not meet the 
inequalities listed below then we can exclude the candidate component from any further 
consideration. If the aggregate signatures do match we have not confirmed a match, but 
must continue the matching process using more sophisticated filters. The basic rules 
for matching types are as follows [McDo91]: 

• NUM(ADT(sbc)) > NUM(ADT(qc)) 

• NUM(Tot_In(sbc)) > NUM(Tot_In(qc)) 

• NUM(Tot_Out(sbc)) > NUM(Tot_Out(qc)) 

• NUM(OPS(sbc)) > NUM(OPS(qc)) 

The number of ADTs, operators, aggregate operator input and aggregate operator 
output parameters of the software base component must all be either greater than or 
equal to those of the query component. 

3. Extended Type Matching Rules for Operators 

The components that pass the basic rules are checked against the extended 
matching rules, which are more restrictive. The extended matching process includes 
comparison of parameter types between the query and software base components. The 
extended rules for matching operators are as follows: 
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• Property 1 



3f : In(qc) — > In(sbc) such that 
[ f is bijective a 
Vpe In(qc) 

[ input_type(p, qc) is_a_subtype_of input_type(f(p), sbc) ] ] 

• Property 2 

3f : Out(qc) — » Out(sbc) such that 
[ f is one-to-one a 

Vp s Out(qc) 

[ output_type(p, qc) is_a_supertype_of output_type(f(p), sbc) ] ] 

The first rule says that a) each input parameter of the query component must map to a 
distinct input parameter in the software base component and vice versa, and b) for each 
input parameter pair, the type of the query component input parameter must be equal to 
or a subtype of the software base input parameter. Distinct is defined to mean that no 
parameter in the function’s range can be mapped to by more than one parameter in the 
function's domain. The second rule says that a) each output parameter of the query 
component must map to a distinct output parameter in the software base component, 
and b) for each output parameter pair, the type of the query component output 
parameter must be equal to or a supertype of the software base output parameter. The 
second property is not required to be onto because a software base component operator 
can have more output parameters than the query component. 

4. Extended Type Matching Rules for Types 

Let OPq C denote a query type component operator and OP s b c denote a 
software base type component operator. The extended rule for matching types is as 
follows: 
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• 3f : OPq C — > OP s b c such that 
[ f is one-to-one a 
VOP qc e OPS(qc) 

[ Property 1 and Property 2 defined in Section IV. B. 3 
hold true for each (OPq C , f(OPq c )) pair. ] ] 

This rule states that a) each operator in the query type component must map to a distinct 
operator in the software base type component, and b) each mapped operator pair must 
adhere to the rules defined in Sections IV.B.l and IV.B.3. 

C. A MECHANISM FOR SYNTACTIC MATCHING 

Now that we have described the rules for what constitutes a valid match, we need a 
mechanism for calculating matches efficiently. Because a handwritten signature uniquely 
identifies an individual, the term signature has become synonymous in many domains 
with the concept of identification. A mechanism for generating signatures that represent 
a software component's parameter composition provides a utility that subsequently 
allows component matching to take place by component signature comparison. 

1. What Didn't Work - The Initial Attempt at Developing a Mechanism 

Prime numbers were explored as the basis for computing syntactic signatures 
that identify unique groupings of parameters. Each PSDL specification has a separate 
signature for its input and output parameters. The goal was to match PSDL 
specifications by comparing their signatures. 

The following signature matching mechanism was developed. All types in the 
Ada type hierarchy of Figure 5 were assigned a unique prime number and a 
representative value. The root type has a unique prime number which also serves as its 
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representative value. The representative value for each descendant type is derived by 
multiplying the representative values of its parent type by its own unique prime number. 
So, for example, let us assign the following unique prime numbers to types: Private = 2 
(root type). Discrete = 3, and Enumeration = 7. Looking at the Ada type hierarchy in 
Figure 5 we see that Private is a root type and therefore its representative value 2, equals 
its unique prime number. The representative value for Discrete is found by multiplying 
its unique prime number (3) by the representative value of its parent (Private = 2) which 
results in 6 (3 x 2). Likewise, the representative value for Enumeration is found by 
multiplying its unique prime number (5) by the representative value of its parent 
(Discrete = 6) which results in 30 (5 x 6). The unique prime numbers assigned to types 
recognized by the matching algorithm and their corresponding representative values are 
as follows: 
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Unique 


Representative 








Prime No. 


Value 


private 






2 


2 


discrete 






3 


6 




enumeration 




7 


42 






character 


17 


714 






boolean 


19 


798 




integer 




5 


30 






range 


23 


690 






natural 


11 


330 






positive 


13 


4,290 


digit 






37 


74 




float 




43 


3,182 


delta 






41 


82 




fixed 




47 


3,854 


array 






29 


58 




string 




53 


3074 


record 






31 


62 


access 






59 


118 



Figure 6 - Type Prime Number Hierarchy 



a. Signature Calculation 

A PSDL specification has separate signatures for its input and output 
parameters. A parameter signature is calculated by multiplying the representative values 
given above for all parameter types. For example, a PSDL specification with input 
parameters of type integer (30) and type boolean (798) would have an input parameter 
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signature of 23,940 (30 x 798). Multiple occurrences of a type cause its representative 
value to be used a corresponding number of times in the signature calculation. 
b. Guaranteeing the Uniqueness of Signatures 

The effect of this numbering scheme is to simplify the comparison of two 
parameter signatures. Using a unique integer value to represent a parameter signature 
allows for fast lookup in an ordered list in the simplest case of an exact match. In the 
more complicated case, a number of potential matches might not be exact but are 
guaranteed to apply due to the partial ordering of types. Therefore, a query component 
trying to match its input parameters of type integer and boolean can successfully map to 
a software base component with an input parameter X that is an ancestor of integer in 
the partially ordered Ada type hierarchy and an input parameter Y that is similarly an 
ancestor of boolean. If one component parameter signature can divide into another 
component parameter signature with no remainder, then a signature match has occurred 
(note that the determination of which component's signature is the dividend and which is 
the divisor is dependent on whether input parameter signatures or output parameter 
signatures are being matched). Informally, this is because the type hierarchy numbering 
scheme insures that the representative value of any descendant is a multiple of the 
representative values of all its ancestors. The value of a signature is unique. No other 
combination of parameters could result in the same value. To see why this is so, let us 
consider an example. Here are the input parameters for an operator: 





Parameter Tvpe 


Rep. Value 


Prime Factors 


• 


Character 


714 


{17,7,3,2} 


• 


Integer 


30 


{5,3,2} 


• 


Natural 


330 


{11,5, 3,2} 
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The input signature for this example would be 7,068,600 (7 14 x 30 x 330). What makes 
its value unique is the fact that the representational values for the parameter types are the 
result of prime factors, and each representational value has its own unique combination 
of prime factors. Thus each signature is also a unique combination of prime numbers. 
Only the exact same combination can represent a signature with the exact same 
parameters. The prime factors comprising a representational value have been 
deliberately chosen to provide the capability to perform subtype matching. For example. 
Integer is an ancestor of Natural. It is clear that dividing the representational value of 
Integer into the representational value of Natural would result in a zero remainder. That 
is because Natural has the same set of prime factors as Integer, in addition to the prime 
factor 11. This relationship was designed to hold true for all ancestors and their 
descendants in the Ada type hierarchy. To further illustrate this, let us divide 

input_signaturel into input_signature2. As long as the parameter types in 

input_signaturel can be mapped by a one-to-one correspondence with the parameter 
types of input_signature2 so that all input_signaturel parameter types are the same or an 
ancestor of the input_signature2 parameter type they are mapped to, then the result of 
the division must be a zero remainder. Any mapping that did not maintain an ancestor- 
descendant or equal-equal relationship between parameter types would guarantee that a 
set of prime factors (representing one parameter type) would be divided by a non- subset 
set of prime factors (representing the other parameter type in the mapping) resulting in a 
non-zero remainder. Another point to make with this prime factorization scheme is that, 
given an input signature, it is easy to derive the parameter types that make it up. Starting 
with the largest representational values and working down to the smallest, the 
representational value is divided into the signature. If the remainder is zero, then the 
new signature value becomes the result of the division and we have successfully 
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extracted one parameter type. We repeat this process with the same representational 
value until we get a non-zero remainder. If the remainder is non-zero then the value of 
the signature is not changed and we move to the next largest representational value and 
start the division process over again. This is continued until the value of the signature is 
zero which will happen once all parameter types are extracted. This process of deriving 
the parameter types that make up the signature is identical to the retrieval phase of the 
knapsack algorithm [Manb89]. 

Two factors aid the search process in a list of components ordered by 
parameter signature value for a match even when an exact parameter signature match is 
unavailable. First, all software base components with an input parameter signature 
greater than the query component input parameter signature can be skipped because the 
query component input parameter signature cannot be divided into by any of them with a 
remainder of zero. Second, all software base components that have a parameter 
signature less than or equal to the query component's parameter signature can quickly be 
checked by dividing the software base component signature into the query component 
signature to see if the result is a zero remainder (for input parameters). All results with a 
zero remainder indicate a match. 

c. Problems With the Initial Mechanism 

While outwardly fast and effective, this initial strategy for syntactic matching 
has several shortcomings. Array types, which are composite, are made up of two 
components; an element and an index. This necessitated separate and unique 
numbering schemes for the array index and array element in order to distinguish the array 
components from stand alone parameter types. For example, using the representational 
value of 30 for an Integer whether that Integer is a stand alone parameter type or the 
index component of an Array type cannot be allowed. Otherwise, dividing a signature 
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with one parameter of type Integer (signature = 30) into a signature with one parameter 
of type Array [element : Record, index : Integer] (signature = 107,880 = 58 x 62 x 30) 
would result in a zero remainder, falsely indicating that the signatures matched. 

Trying to match software base components that had more input parameters 
than the query component (only allowable in the case of aggregate input signatures for 
PSDL types) necessitated another separate and unique numbering scheme similar to 
Figure 6 but reversed with the root representational value taking on the product of its 
children's representational values and a unique prime. This forced the representational 
values for ancestors to be greater than those of descendants. The reason for this is that it 
is important that the signature being divided into have the larger value and therefore be 
the one allowed to have extra parameters. Since it is always either an equal or larger 
value than that of the signature dividing into it, increasing its value by multiplying it by 
additional parameter representational values does not affect the outcome of the division 
(i.e., a zero or non-zero remainder). For example, if Signature 1 with one Discrete 
parameter (signature = 6) is dividing into Signature2 with one Integer parameter 
(signature = 30), then we can arbitrarily add a Character parameter to Signature2 (new 
signature = 21,420 = 30 x 714) without affecting the fact that Signature2 divided by 
Signature 1 will result in a zero remainder. 

Finally, the greatest shortcoming of this initial mechanism proved to be 
technical. The numeric values of calculated signatures were simply too large to be 
handled by a computer dealing with 64 bit floating point values without losing precision. 
The maximum available precision of 15 digits was far too small and too limiting for the 
needs of this mechanism. 
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2. A Successful Syntactic Matching Mechanism 

The mechanism developed in this thesis for syntactic matching that overcame the 
above problems is loosely based on the concepts of pattern recognition and set theory 
[Epp90, Manb89]. First, let us picture the subtype hierarchy of Figure 5 as a hierarchy 
of regions portrayed as follows: 
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Figure 7 depicts a hierarchy of regions for input parameter types. The graphical 
depiction of one region within another represents the concept of subtype and supertype 
relationships in a type hierarchy; inner regions are the subtypes of their outer regions, 
and outer regions are the supertypes of their inner regions. Note that unlike Figure 5, a 
clear distinction is made between the generic and non-generic Private type. This is 
necessary because when matching input parameters, the non-generic Private type does 
not have any descendants. It must be matched exactly or to a generic Private type. The 
other generic types are not portrayed here because their role is not as crucial with input 
parameters. For example, a query component input parameter of type Boolean matches 
equally well to a software base component input parameter of type Discrete or generic 
Discrete. 

This, however, is not the case with output parameter types. The reason for this is 
that the mapping direction is reversed for output parameters. A query component output 
parameter of type Boolean does not match a software base component output parameter 
of type Discrete. However, it does match a software base component output parameter 
of type generic Discrete because that parameter could be instantiated to Boolean. So, 
for output parameters, we have a separate scheme depicting a hierarchy of output 
parameter regions as illustrated in the following figure: 
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Figure 7a - Subtype Hierarchy with Regions (Output Parameters) 

To simplify the drawing, connection dots are used to portray some of the mappings for 
the generic Private type. 



a. Parameters as Patterns 

The input parameters that make up a software component's input signature 
can be portrayed graphically by the number of times they appear in the various type 
hierarchy regions. A software component with one input parameter of type Integer and 
two of type Enumeration could be graphically depicted as follows: 
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The layout of these input parameter types in their respective regions creates a pattern 
that graphically portrays the input signature of the software component. Another 
software component with the same pattern must have the same input parameter 
composition because a pattern is composed of the sub-patterns of individual parameter 
types (i.e., a shaded block in the Enumeration region, a second shaded block in the 
Enumeration region, and a shaded block in the Integer region). 
b. Pattern Matching 

The more difficult question, however is how to identify a pattern that is similar 
because it provides a correct mapping to the pattern in Figure 8. For example, suppose 
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we are trying to match the software component in Figure 8 (the software base 
component) with a query component that has input parameters of type Character, 
Boolean, and Positive. We will graphically portray these parameters as filled black 
circles as follows: 




The solution to matching similar patterns is solved by utilizing set theory and applying it 
to the hierarchy of regions. Input parameter regions are considered sets whose elements 
consist of all subset regions and themselves. Conversely, output parameter regions are 
considered sets whose elements consist of all superset regions and themselves. As an 



44 




input parameter example, an input parameter of type Integer is represented as a set 
containing the elements Regions 6, 5, 2, and 1, which can be written as 
Region_Set(Integer) = {Region 1, Region 2, Region 5, Region 6}. As an output 
parameter example, Region_Set(Integer) = {Region 6, Region 8}. A pattern is 
therefore defined as the multi-set containing all regions utilized by a component. A 
multi-set allows duplication so that each instance of region occupation by a parameter 
type appears in the set. Patterns are synonymous with signatures, and there is a separate 
pattern for the input and output signature. A query component pattern (QCP) matches a 
software base component pattern (SBCP) when QCP <z SBCP. Thus, for our example 
in Figure 9, the query component pattern is {Region 1, Region 3, Region 4} which is a 
valid subset of the software base component pattern of ( Region 1 . Region 2, Region 5, 
Region 6, Region 3 . Region 4, Region 7, Region 3, Region 4 . Region 7}. 

One benefit with matching a query pattern as a subset of a software base 
pattern is that extra input or output parameters in the software base component do not 
affect the matching process. They are simply irrelevant pieces of the software base 
component pattern. As long as the software base component's pattern includes the 
elements of the query component pattern, a match is recognized. The reason this is true 
is similar to the prime numbering scheme concept of getting match results by dividing 
signatures, discussed in Section IV.C.l. Let us use Figure 9 and an input signature or 
pattern as an example (we will ignore generic Privates for this example). The 
Region_Set for a query component input parameter of type Positive is {Region 1 }. This 
input parameter can legally map to software base component input parameter types 
Natural, Integer, or Discrete which have Region_Sets of {Region 1, Region 2}, {Region 
1, Region 2, Region 5, Region 6}, and {Region 1, Region 2, Region 5, Region 6, Region 
8} respectively. The pattern for the query component input parameter Positive is a 
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subset of any of the software base component input parameter type patterns it can legally 
map to. Adding set elements representing additional input parameters to the software 
base component input signature pattern does not alter the subset relationship of the 
query component input signature (in this example comprised of the single input 
parameter type Positive). 

c. Signature Representation 

The ultimate size of a software reuse library could easily be on the order of 
tens of thousands of components or more. Because pattern matching can be a 
computationally intensive process, a representation for component input and output 
signatures is needed that allows signatures to be compared quickly. Signatures (or 
patterns) are represented as a series of 32 bit integers with each integer representing an 
individual region. Because all operations can be carried out by comparison of integer 
values, the matching of signatures can be accomplished fairly rapidly. Graphically, a 
signature is represented as follows: 
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Figure 10 - Graphic Representation of a Signature 



As Figure 10 shows, each region consists of a 32 bit integer. The value of the integer is 
equivalent to the number of type occurrences encoded in a region. Therefore, the upper 
limit on number of parameters of a particular type is 2^2 - 1. A signature is the logical 
concatenation of 24 regions. Comparison of two input signatures actually involves 18 
comparisons (one for each non-generic region and one for generic Private). The generic 
regions other than generic Private need not be checked because the same result is 
returned by checking the non-generic region equivalent (see Section IV.C.2 for an 
example). However, comparison of two output signatures cannot necessarily ignore any 
of the generic regions. Seventeen comparisons are initially made for the non-generic 
regions. If any of those 17 comparisons fail to match, then a further check must be made 
of the corresponding generic regions. For example, suppose that the value of Region 6 
for a query component output signature is three (three occurrences of type Integer) 
while the value of Region 6 for a software base component output signature is two (two 
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occurrences of type Integer). This initially indicates that the two signatures might not 
match, but is not conclusive. We must check the all relevant corresponding generic 
regions. In the case of Integer, the corresponding generic regions to check would be 
generic Discrete and generic Private. Looking at the generic Discrete region (Region 
19) of the software base component output signature, if it is greater than zero (i.e., it has 
one or more occurrences of type generic Discrete) then we can match one of those 
occurrences with the query component output signature Region 6 instance that was 
previously unmatched. At this point, assuming all other regions from one to seventeen 
matched, we have a valid match. If the generic Discrete region did not have any type 
occurrences, or had fewer occurrences the number needed, we would continue by 
examining the occurrences of the generic Private region (Region 1 8) in the same manner. 

d. Building the Signature 

All integers representing regions in the signature are initially set to 0. 
Parameters are dealt with sequentially. The regions corresponding to a parameter's type 
are determined based on whether you are working with an input or output signature. 
The relevant regions for a parameter are encoded in the signature by incrementing the 
integer for each particular relevant region by 1. So, for example, when all input 
parameters have been encoded, the resulting series of 24 integers (regions) is the 
corresponding input signature. 

e. Signature Matching 

Let us look at a simplified example to see how signature matching is 
performed. Suppose we are comparing two input signatures. The software base 
component's input parameters are one Enumeration type, one Integer type, and one 
Natural type. Because we are working with input parameters, we can map in a 
downward direction in the type hierarchy and we are interested in subset regions. 
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Region_Sets for the software base component will be (Enumeration = {7, 4, 3}), 
(Integer = {6, 5, 2, 1}) and (Natural = {2, 1}). Its signature will have integer values of 
one for Regions 7, 6, 5, 4, and 3 and integer values of two for Regions 2 and 1. Our 
first query component's input parameters are one Boolean type, one Integer type, and 
one Positive type. Regions for the query component will be (Boolean = {3}), (Integer = 
{6, 5, 2, 1}) and (Positive = {1}). Its signature will have integer values of one for 
Regions 6, 5, 3 and 2 and an integer value of two for Region 1. The integer values for 
all other regions for both components remain set to zero. 

Normally only the query component signature is encoded during matching 
because the signatures of the software base components are computed when the 
components are stored in the reuse library. Once the query signature is encoded, 
comparing signatures is a fast and simple process. The first query component described 
above is taken through this process in the following figure: 
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Region 1 Region 2 Region 3 Region 4 Regions Region 6 Region 7 

(A) Query Signature: 
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(B) Software Base Signature: 
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(C) Comparison Result: 
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RESULT: All check marks in (C) signify a valid match between the query and 
software base component. An X signifies that a comparison between 
regions did not succeed, further signifying a failed match. 

Note that for simplification, only regions 1 - 7 are used in this 
example. 



Figure 11 - Signature Matching Example 1 

The first pair of regions to be compared in which the integer value of the query 
component region is greater than the region value of the software base component 
region value indicate that a match is not possible and the comparison with that particular 
software base component is done. If all 18 (only seven are shown in Figure 11) region 
comparisons succeed then a match has been found, as is the case in Figure 11. 

Now let us take a look at a second example. The input parameters for the 
software base component will remain the same. Our second query component’s input 
parameters are one Boolean type and two Integer types. Region_Sets for the query 
component will be (Boolean - {3}), (Integer - {6, 5, 2, 1 }) and (Integer - {6, 5, 2, 1}). 
Its signature will have an integer value of one for Region 3 and an integer value of two 
for Regions 6, 5, 2, and 1. Integer values for all other regions for both components 
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remain set to zero. The following figure illustrates the signature matching process for 
the second query component: 



Region 1 Region 2 Region 3 Region 4 Region 5 Region 6 Region 7 

(A) Query Signature: 
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(B) Software Base Signature: 
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(C) Comparison Result: 






RESULT : All check marks in (C) signify a valid match between the query and 
software base component. An X signifies that a comparison between 
regions did not succeed, further signifying a failed match. 

Note that for simplification, only regions 1 - 7 are used in this 
example. 



Figure 12 - Signature Matching Example 2 

As expected, we did not get a match because the Integer parameter in the query 
component cannot map to the Natural parameter in the software base component when 
working with input signatures. The regions that wound up with X's were the two 
regions (Integer and Range) that were part of the query Integer parameter pattern but 
not part of the software base component Natural parameter pattern. 

/. Limitations with Composite Types 

The syntactic matching mechanism described in Sections IV.C.2(a-e) above 
has some limitations when dealing with composite types such as arrays and records. 
Composite types are defined as types that are logically made up of several components 
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[Booc87]. Arrays have two specific components, an index type and an element type. 
Matching arrays based on the makeup of their two components could be handled in the 
same manner as matching scalar types by breaking out an array type into three types; a 
scalarized array, an index, and an element. However, one limitation with this method is 
that false matches could be recorded due to confusion about which is the array element 
and which is the array index. For example, Array 1 [ Array_Element : Integer, 
Array_Index : Positive] would be incorrectly matched with Array2[Array_Element : 
Positive, Array_Index : Integer]. A second concern is the fact that this could lead to an 
solution with unbounded nesting, because an Array element could itself be an Array 
which in turn would have to be described by its components. Records do not suffer from 
the problem of confusing their subcomponents. Record components, however, have the 
same potential for unbounded nesting. 

One final potential limitation of arrays concerns the matching of an array as a 
query component input parameter against a generic Private type in a software base 
component input parameter. While the pattern of the Array type fits into the pattern of 
the Private type, the patterns of the Array plus its components do not. 

The solution to these limitations is to not consider components of composite 
types during signature matching. Software components are evaluated for matches at the 
composite type component level during additional match processing subsequent to 
signature matching. 

g. Eliminating False Matches 

False matches are a problem with input parameters when using the pattern 
matching technique. The reason stems from the fact that additional information for each 
input parameter in the software base component is added to the pattern along multiple 
downward paths in the type hierarchy to ensure any valid subtype in the query 
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component will be recognized. For example, if Discrete is the type of one of the 
software base component input parameters, then not only is the integer value of the 
Discrete region incremented by one, but the integer values of the regions corresponding 
to Integer, Range, Natural, Positive, Enumeration, Boolean and Character are 
incremented by one as well. Because the added information represents several distinct 
downward paths in the type hierarchy rather than only one, it is possible that the pattern 
representing the one Discrete type might falsely match input parameter patterns 
representing several subtypes of discrete with non-overlapping paths. Two paths are 
defined as overlapping if they are equal or if one path contains all the nodes of the other. 
Any other path is considered non-overlapping. As an example, let us look at a software 
base component with one Discrete type and two Boolean type input parameters. The 
corresponding query component will have one Range type, one Natural type, and one 
Character type for its input parameters. Here is what the input signature matching 
process would result in for these two components: 
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Region 2 Region 3 Region 4 Region 5 Region 6 Region 7 Region 8 

(A) Query Signature: 
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(B) Software Base Signature: 
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(C) Comparison Result: 
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RESULT : All check marks in (C) signify a valid match between the query and 
software base component. An X signifies that a comparison between 
regions did not succeed, further signifying a failed match. 

Note that for simplification, only regions 2-8 are used in this 
example. 



Figure 13 - Example 3 



Although we know that the input signatures of these two components do not match, the 
pattern comparison technique generates a match. It is the non-overlapping paths that 
create the problem. The pattern for Discrete has several non-overlapping downward 
paths that can be seen in the type hierarchy of Figure 7. Examples are from Discrete 
down to Natural, Boolean, Character, and Range. Thus, the one parameter type 
Discrete could potentially signify a simultaneous match against four separate parameter 
types. Even if the number of input parameters are the same in both the software base 
component and query component, we still have false matches created by non-overlapping 
paths from the same root as we saw in Example 3 above. 

Because output parameters deal with supertypes that by definition must have 
overlapping paths, the process of matching output signatures cannot generate false 
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matches. Therefore we now describe a method to eliminate false matches for input 
signatures. 

We start with the query component and move from the bottom of the type 
hierarchy (Figure 7) to the top, working with the leaf nodes. Nodes are equivalent to the 
regions that comprise a signature. When processing of a leaf node is complete, it is 
discarded. When all the leaf nodes of a parent node have been processed and discarded, 
the parent then becomes a leaf node. Processing a leaf node occurs in several steps. If a 
leaf node has an integer value greater than zero (i.e., it has one or more occurrence of 
partial encoding information for a parameter type instance), then a parallel path is traced 
in the query and software base components from the particular leaf node up the subtype 
hierarchy. The trace in the query component stops when (1) the parent node of the 
current query node has an integer value of zero (i.e., no partial encoding information for 
a parameter type instance), (2) the current query node's parent has a smaller integer 
value than the current node (i.e., partial encoding information for fewer parameter type 
occurrences), (3) the current query node is the top of the subtype hierarchy, or (4) the 
software base current node has an integer value of zero and the current query node has 
an integer value greater than zero. In the first three cases we have completed a trace of a 
single query input parameter and it has a valid matching software base component input 
parameter. The fourth case represents a false match. At this point, we have a parallel 
trace established on the software base component. We now decrement the integer value 
of the query component current node and all its descendant nodes by one which has the 
effect of removing all the encoding of a parameter type instance from the query input 
signature. The trace up the type hierarchy continues for the software base component 
and halts under the same first three conditions described for stopping the query 
component trace. At this point we have a complete path defined in our software base 
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component. The root of the path represents the type of the corresponding software base 
component input parameter. Next, all downward paths from that type must be traversed 
and the integer value decremented by one at each node including the root 

To see how the fourth case described above would occur let us use the two 
components from Example 3 in Figure 13. Example 3 generated a valid match, so now 
we must test it to see whether a false match had been generated. Refer to the following 
figure as we check for a false match: 



Query Component Software Base Component 

Generic Private 




Figure 14- False Match Example 

Since two of the three input parameters for the query component are leaf nodes in the 
Ada type hierarchy, we arbitrarily pick Range to start with. It has an integer value 
greater than zero and so we attempt to proceed in an upward path in both the query and 
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software base components. However, because the query component parent (Integer) has 
an integer value of zero, we go no further with the query component (Figure 14 (a)). 
We decrement the integer value of the query component Range node and all its 
descendants by one (in this case, the type Range has no descendants - Figure 14 (c)). 
We now continue with the software base component moving upward through the Ada 
type hierarchy from Range until we reach Discrete. At that point, the parent of Discrete 
has an integer value of zero (Figure 14 (b)). Since Discrete is the root of the path we 
found in the software base component, it must be an input parameter type. We must 
now decrement the integer values by one for all nodes along the paths Discrete-Range, 
Discrete-Positive, Discrete- Character, and Discrete-Boolean (Figure 14 (d)). Care must 
be taken to only decrement the integer value of a node by one the first time it is 
traversed. The only node with a non-zero integer values in the software base component 
input signature at this point is the Boolean region (Figure 14 (d)). We now turn back to 
the query component and proceed with the next leaf node, Character (Figure 14 (d)). 
Immediately we run into case four where the query component Character node has an 
integer value of one, but the corresponding software base component Character node has 
an integer value of zero indicating that we have a false match between these two 
components (Figure 14 (c) and (d)). 

Thus we have a a process to detect false matches. In cases where two 
components do match, the check for false matches will confirm the valid match. 
h. Measuring Signature Closeness 

In a software reuse library with tens of thousands of components it is expected 
that many attempts to match a particular query component will yield multiple candidates. 
It is additionally desirable, therefore, not only to provide all matches but also to order 
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them from the closest match to least closest. From that point individual scrutiny on a 
component by component basis must be performed by the software prototype developer. 

For operator components, using the difference in number of output 
parameters between the query and software base component is a good first criterion to 
base the ordering of candidate matches. It is possible to further improve the candidate 
ordering by using signature closeness as the second ordering criterion. Signature 
closeness is determined by evaluating an overall measure of closeness in type between 
two signature's parameters. Closeness is defined as the length of the path (i.e., number 
of edges) between two nodes in the type hierarchy. This is well defined because the type 
hierarchy is a tree, so there is exactly one path between any two nodes related by the 
subtype relation. Closeness is only relevant where a) the two nodes are the same, or b) 
one node is a descendant of the other. We have defined closeness between two 
parameter types. The closeness for a signature is an extension of that definition and is 
the summation of the individual closeness measurement between each query component 
parameter and its matching software base component parameter. Input signature 
closeness is the summation for input parameters, and the output signature closeness is 
the summation for output parameters. Operator closeness is the summation of the input 
signature and output signature closeness values. 

When the software base component has more output parameters than the 
query component, these extraneous parameters must not be included when calculating 
the closeness degree. For one thing, the difference in the number of output parameters 
has already been taken into account by the first criterion described above for ordering 
matches. A second reason is that the results generated by those output parameters are 
not necessarily of interest to the prototype designer. Therefore, the closeness degree is a 
measurement describing type distance between all matched parameters. Input and output 
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parameters are processed in a similar manner with slight differences to arrive at an 
overall signature closeness measurement. 

For input parameters, we piggyback onto the process that checks for false 
matches in Section IV.C.2.g. The false match check extracts the query and software 
base component parameter pairs which allows us to then calculate the closeness once the 
exact parameter types of the matched parameters are known. The crucial part of 
measuring closeness comes when the upward trace is halted in the query component 
while checking for a false match. At that point both the query and software base 
component have a closeness degree of 0 and we have a parallel trace established on the 
software base component. The trace up the type hierarchy continues for the software 
base component and halts under the same three conditions described for stopping the 
query component trace. At that point we have identified the software base parameter 
type that matches the query component parameter type we are trying to match. Each 
additional node reached in the software base component trace is counted as a degree of 
closeness. Therefore, for example, if the query component trace went from Positive 
through Integer and the software base component trace continued on to generic Private, 
the difference in nodes from Integer to generic Private is two which corresponds to the 
degree of closeness between the two input parameters Integer (query component) and 
generic Private (software base component). 

With output parameters we also start with the leaf nodes of the query 
component. Because output signatures are encoded by adding one to the integer value 
of the node corresponding to the parameter type and all its ancestors, all query 
component original leaf nodes that have type occurrences encoded in them will have 
exact matches. It is when we exhaust all query component leaf nodes and start 
examining nodes at a higher level (also called leaf nodes since at that point their children 



59 



have been eliminated, but note that these are not original leaf nodes) that we may 
encounter a positive closeness factor. When a leaf node has an integer value greater than 
zero, we decrement by one the integer value of all nodes from the leaf node along the 
path to the top of the hierarchy in both the query and software base component. Then 
we must trace the software component from its corresponding leaf node down through 
the type hierarchy until we reach a descendant node that is a subtype hierarchy leaf node 
or whose integer value is greater than the sum of the integer values of its children. If, in 
order to continue a required downward trace, we must choose amongst the children of a 
node, the child is picked that has the shortest possible path to a leaf node. Each 
additional node reached in the software base component downward trace is counted as a 
degree of closeness. Therefore, for example, if the query component trace was based at 
Integer and the software base component trace continued from Integer down to Positive, 
the difference in nodes from Integer to Positive is two which corresponds to the degree 
of closeness between the two output parameters. 

The methods described above for measuring input and output signature 
closeness apply equally to type components. The only difference is that where operator 
closeness is the summation of the input and output signature closeness values, type 
closeness is the summation of the operator closeness values for each of the type's 
operators. Despite the fact that the calculation of type closeness is a simple extension of 
the calculation of operator closeness, it is not used in this implementation of syntactic 
matching. The reason for this is due to the semantic uncertainty of matching the 
operators of a type component. There may be numerous valid mappings between the 
operators in the query and software base component, but there is no way to know in 
advance which of the valid mappings is the one desired by the user. For example, 
suppose the query type component has two operators, the first with a single input 
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parameter of type Positive and the second with a single input parameter of type Natural. 
Let us further suppose that a candidate software base type component has four 
operators. The first operator has a single input parameter of type Integer, the second 
has a single input parameter of type Integer, the third has a single input parameter of 
type Natural, and the fourth has a single input parameter of type Positive. There are six 
different possible mapping from the two query component operators to two of the four 
software base component operators, with a range in aggregate input signature closeness 
from 0 to 3. 

i. An Additional Syntactic Matching Filter For Type Components 

The aggregate input and output signatures provide a useful filter for matching 
type components but do not ensure that a match has been found. The next step in the 
process of matching type components is to determine whether a valid mapping can be 
derived for the operators of the query and software base type components as was briefly 
discussed in the above paragraph. All combinations of mappings pairing each query 
operator with one of the software base operators must be examined until a valid 
mapping is found. For each query/software base component operator pairings, the input 
and output signatures of the operator pair are compared. If they match, then that 
particular pairing is valid. If all pairings in a total mapping are valid, then the mapping is 
valid and the candidate software base type component successfully passes through this 
filter and remains a match candidate. 

j. An A dditional Syntactic Matching Filter for Non-Generic Components 

Section IV.C.f discussed the limitations of composite types such as Arrays and 

Records and suggested that the components of these composite types be excluded from 
signature matching and examined during subsequent match processing. An additional 
filter has been developed for ensuring that parameter composite types match at the 
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component level. This process is very similar to the process for determining a valid 
mapping between type component operators. Only the components of Array types are 
examined in this implementation. Note that String types are included as special cases of 
Array types. In addition, this filter was implemented for operators, but not types. 

All combinations of mappings between the query component operator input 
Array parameters and the software base component operator input Array parameters are 
explored until either a valid mapping is found or all combinations have been exhausted. 
A valid mapping has been found when each one of the query component operator input 
Array parameters can be matched to a distinct software base component operator input 
Array parameter at the Array's component level. This matching only goes to the first 
level. So, for example, if an Array element is an Array, that element is not subsequently 
matched based on the values of its components. If a valid mapping is found for input 
Array parameters, then the same process is carried out for output Array parameters. If a 
valid mapping is then found for output Array parameters, the candidate software base 
operator component successfully passes through this filter and remains a match 
candidate. The process for both input and output Array parameters can be summarized 
as follows: 

• Go through the list of query component Array parameters. For each, go 
through the list of software base component Array parameters and record all 
matches. 

• Start with the first query component Array parameter and select the first 
software base component Array parameter it has a recorded match with. That 
software base component Array parameter is now considered EN_USE. 

• Go to the next query component Array parameter, and select the first software 
base component Array parameter that it has a recorded match with and that Ls 
not IN_USE. Mark its selection as IN_USE. 
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• Continue this process through all query component Array parameters. If the 
last query component Array parameter is reached and there is a software base 
component Array parameter that it has a recorded match with that is not 
IN_USE then we are done and a match was found for this filter. Otherwise, if 
a query component parameter is reached but all the software base component 
Array parameters that it has a recorded match with are in use, backtrack to the 
previous query component Array parameter, mark the current software base 
component Array parameter it is mapped to as not IN_USE, and attempt to 
find the next software base component Array parameter that it has a recorded 
match with to mark IN_USE. 

• If we backtrack to the first query component Array parameter after trying the 
last software base Array parameter it recorded a match with, then the match 
fails. 

Generic components do not use this filter for two reasons. First, the addition 
of generics complicates the process of mapping query to software base component Array 
parameters. With non-generic components, every query component Array parameter 
must have a corresponding software base component Array parameter because the input 
and output signatures of the two components have already been determined to match. 
However, with generic components, it is possible for the software base component to 
have fewer Array parameters than the query component with generic parameters making 
up the difference. The second reason is that generic components use a separate filter 
discussed in the next section that includes the matching of Array types at the Array 
component level. 

k. An Additional Syntactic Matching Filter for Generic Components 

An additional filter has been developed for ensuring that a query component 
can instantiate a candidate software base component and subsequendy match that 
instantiation. This process is similar to the process for determining whether the Array 
parameters of two components match fully, but takes on an extra level of complexity 
because it deals not only with all query component parameters, but with the 
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instantiations of the corresponding generic parameters in the software base component. 
Two separate mappings must be determined. The first maps the generic parameters of 
the software base component to the query component parameters that will instantiate it. 
The second maps the query component input and output parameters to the software base 
component input and output parameters. These two mappings are related, because the 
instantiations determined by the first mapping affect the matching of input and output 
parameters of the second mapping. To reduce complexity, the possible generic 
instantiations are determined first. The reason is that the combinations for instantiation 
of the generic parameters can be accomplished without regard to the order in which the 
generic parameters are examined because they do not affect one another. This is not the 
case with input and output parameters. If input and output parameters are examined 
first, then every possible ordering of those parameters must be considered so that all 
possible instantiations are considered. 

If one or more of the generic parameters in the software base component 
cannot be instantiated then the match fails. In addition, this filter was implemented for 
operators, but not types. The process for determining whether a valid instantiation of 
the generic software base component exists can be summarized as follows: 



64 



• First determine the first valid mapping from the software base component 
generic parameters to corresponding query component parameters that can 
instantiate them. This mapping determines the instantiations of the software 
base component input and output parameters that are defined by generic 
parameters. 

• Next, attempt to find a valid mapping between the query component input 
parameters and the software base input parameters. If a valid mapping is found 
then continue by trying to find a valid mapping between the query component 
and software base component output parameters. If a valid mapping is found 
then we are done and a match was found for this filter. 

• If a valid mapping could not be found for either the input or output parameters 
then we must backtrack to find the next valid generic instantiation mapping and 
proceed from there. If all generic instantiation mappings have been exhausted 
without finding valid mappings for the input and output parameters, then the 
match fails. 

The detailed process for determining a valid mapping for both the generic instantiation 
and input/output mappings is identical to the process described in Section IV.C.2.j for 
mapping Array parameters. The only difference is what objects are mapped. For 
example, with generic instantiation mapping we are mapping software base component 
generic parameters with query component input and output parameters instead of query 
component Array parameters with software base component Array parameters. The 
process for arriving at a valid mapping is the same. 

1. A Graphic Representation of the Syntactic Matching Filtering Mechanism 
The syntactic matching mechanism can be summarized by the graphic 
representations of the component filtering process depicted below. The filters are 
represented by the conical shapes and have all been described previously. Here is the 
filtering process for operator components: 
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Figure 15 - Filter Process Flow for Operators 

The next figure depicts the filtering process for type components. Note that total 
number of inputs and outputs reflect aggregate numbers for the type component's 
operators as do the input and output signatures. 
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D. IMPLEMENTATION DETAILS 

This section describes many of the implementation details specific to realizing the 
syntactic matching mechanism described in Section IV.C.2 and also summarizes the 
changes made to the CAPS software base to extend its syntactic matching capability. 



1. Ada Language Usage Limitations 

In its present form, CAPS does not permit certain Ada language constructs to be 
used in the Ada specifications and bodies that make up the CAPS software base. Many 
of these limitations are due to the current programmed capabilities of the CAPS 
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translator. First, an operator cannot be implemented as a function; it must be a 
procedure. Second, procedure input and output parameters may only be defined as 
either "in" or "out" but not as "in out." This limitation has an important implication for 
naming PSDL specification input and output parameters. Specifically, it requires that no 
input parameter name be the same as an output parameter name within the same 
operator in a PSDL specification. Third, Limited Private types are not allowed because 
the translator relies on the ability to do assignments. Fourth, the only generic parameters 
allowed are generic types. No generic objects or values are allowed. Furthermore, there 
is no current means in PSDL for a prototype designer to define a procedure that a 
generic software base component may require as a generic parameter for instantiation. 

2. Changes Made to the Original CAPS Software Base 

The original CAPS software base was implemented by John Kelly McDowell. 
[McDo91] The primary change to the implementation of that software base by this 
thesis is the extension of its syntactic matching to include the ability to match 
components based on the types of their input and output parameters. This extension has 
resulted in new code in the form of Ada packages and programs for signature encoding 
and C++ classes and programs for type matching. This new code is described in more 
detail later. 

a. The Physical Schema for the Software Base 

To support our new method for syntactic matching, we have made some 
changes to the software base schema originally designed by McDowell. [McDo91] 
Before discussing those changes let us first review the original software base. Using 
states and the number of input, output, and generic parameters as multi-attribute keys, 
McDowell designed a software base schema that hierarchically partitions the search 
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space thereby limiting the number of components that must be searched for a valid 
match. Separate hierarchies were designed for types and operators. 

Figure 4 provides a simplified view of the software base schema for operator 
components and is explained in Sections III. A and III.B. It does not include the use of 
the number of generic parameters as multi-key attributes. Ontos dictionary classes are 
used as the hierarchy nodes. These dictionaries use the multi-attribute keys as the 
dictionary tag (key) and a dictionary object as the dictionary element. The power of this 
software base schema is its ability to partition components into sets with similar 
attributes providing a very fast mechanism to find all software base components that 
match the attributes of the query component. 

The changes we have made to McDowell's software base schema are (1) the 
removal of the number of generic parameters as a multi-attribute key and its 
corresponding generic dictionary in both the operator and type component libraries, (2) 
the addition of operator input and output signatures and their corresponding dictionaries 
to the operator component library, and (3) the addition of type input and output 
signatures and their corresponding dictionaries to the type component library. Each of 
these changes is explained in the following sections. 
b. Removal of the Generic Dictionary 

The first change made to the software base schema was the removal of the 
number of generic parameters from consideration as a multi-attribute key in the 
matching process. In his thesis, McDowell discussed but never actually implemented 
parameter type matching. [McDo91] He included some program code to support his 
parameter type matching methodology in the form of the SB_RECOGNIZED_TYPES 
C++ class, defined extensions to PSDL in the form of special identifiers, and created a 
rule matrix that defined valid type mappings or subtype relationships between all 
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recognized Ada types. McDowell treated user defined types as unrecognized types and 
created a rule between software base component generic parameters and query 
component unrecognized type parameters. An unrecognized type can be thought of as a 
user defined type. 

This thesis, however, does not permit unrecognized types and forces all query 
component parameters to be defined as Ada types. That is not to say that a query 
component parameter cannot be defined as a user defined type. It can. But ultimately by 
transitivity, a referenced user defined type must be defined in terms of an Ada type. 
Therefore, given the difference in our approach to matching parameter types, the 
methodology used by this thesis can be employed without unrecognized types which 
subsequently eliminates the need to try and match unrecognized types in the query 
component with generic types in the software base component. Based on this, the 
number of generic parameters was removed as one of the multi-attribute keys in the 
software base schema. The removal of the number of generic parameters as a multi- 
attribute key eliminated the usefulness of maintaining a generic dictionary because the 
purpose of that dictionary was to partition components based on their number of generic 
parameters. Therefore, the generic dictionary was also removed. 

Note that the removal of this multi-attribute key does not mean that generic 
parameters are not used in the matching process. They play an important part in both 
matching signatures and determining whether a valid generic instantiation is possible. 

c. Addition of Operator Component Input and Output Signature Dictionaries 

Additions made to the complex data hierarchy preserve the efficiency of the 
data structure while boosting its partitioning power. The first addition was to add the 
operator component input and output signatures as multi-attribute keys. They serve as 
additional partitioning mechanisms which further reduce the set of components that have 
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to be examined. Operator input and output signatures work a little differendy than the 
other multi-attribute keys like the number of input parameters. Whereas an Ontos 
dictionary that uses the number of input parameters as a key can immediately retrieve the 
corresponding dictionary for the next lower level in the complex data hierarchy, input 
and output signatures must be examined one by one. The reason lies partly in how 
Ontos identifies objects. Signatures are used as Ontos dictionary keys and are stored in 
Array objects. Once stored, they are given a unique identifier. If a local Ontos Array is 
then loaded with an identical signature to one stored in the dictionary, the only way it 
can find its match is by examining each dictionary Array element by element. The 
attempt to go direcdy to the matching Array key in the dictionary will not work because 
at that level, Ontos is trying to match the unique object identifier value. Because we are 
concerned with inexact signature matches as well as exact ones, having to scan all 
signature keys in the dictionary turns out to be inevitable anyway, so nothing is really 
lost. The fact that signatures are represented as a series of integers with the matching 
mechanism implemented via simple integer comparison operations proves to be very 
efficient. So despite the fact that signatures must be examined one by one, the process 
of doing so is relatively quick because a) considerable partitioning has already taken 
place before reaching the signature (input or output) dictionary level in the complex data 
hierarchy and b) simple integer operations are very fast. The following diagram depicts 
the new operator component complex data hierarchy and is used by the 
SB_OPERATOR_COMPONENT_LIBRARY class: 
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Regular ellipses represent objects. Shadowed ellipses represent Dictionary objects. And 
rectangles represent Dictionary keys. Figure 17 depicts a storage hierarchy of objects. 
All objects are only stored once in a distinct physical location. References to those 
objects can then be stored within other objects. That is the role the dictionaries serve 
above. Their elements are actually references to other objects. 

d. Addition of Type Component Input and Output Signature Dictionaries 
The second addition was to add the type component input and output signatures as 
multi-attribute keys. They provide the same partitioning and are stored and examined 
during matching in the same manner as the operator component signatures described 
above. One important difference that the type component signatures do possess, 
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however, is that they are actually aggregates of the individual signatures of the ADT 
operators that make up the type component. As aggregate signatures, they serve the 
useful role of allowing further partitioning without inadvertently overlooking any 
potential matches. Software base components that match aggregate input and output 
signatures with the query component have shown that they may ultimately match the 
query component. However, software base components that do not match aggregate 
input and output signatures with the query component are guaranteed not to match that 
query component, thus eliminating them from further consideration. Once the set of 
potential matches has been filtered via the use of aggregate input and output signatures, 
a more processing intensive mechanism is invoked that attempts to map individual ADT 
operators between the query and software base components and perform type matching 
at the individual operator level. It is in this process that the final determination is made 
whether a match exists or not. The following diagram depicts the new type component 
complex data hierarchy and is used by the SB_ADT_COMPONENT_LIBRARY class: 
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Figure 18 - New ADT Component Library 

Note that the multi- attribute keys for the number of input and output parameters are 
also aggregate values derived from the entire set of ADT operators. For example, the 
total number of input parameters is obtained by adding the number of input parameters 
of each ADT operator together. The keys ADTs and Operators represent the number of 
ADTs and the number of operators in a type component. Refer to Section IV. A for 
more detailed definitions. 

3. Using PSDL to Specify Components 

Although the standards for what constitute a valid PSDL specification are strictly 
enforced by virtue of the PSDL grammar, rules for writing a PSDL specifications for 
software base components and for query components are necessary but not defined 
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anywhere. This is an initial attempt to clarify those rules through requirements and 
examples. See Appendix B for examples. 
a. General Assumptions 

Certain assumptions made by the syntactic matching process regarding the construction 
of PSDL specifications are listed below. These assumptions define constraints on 
writing PSDL specifications for components. Even though these constraints cannot all 
be automatically checked at the present time, failure to abide by them could invalidate 
the results of the matching process. Many of the assumptions are checked during 
signature encoding and most violations are revealed in the form of error messages. The 
general assumptions are as follows: 

• Query components cannot have generic parameters. 

• Software base components cannot have unrecognized types. This means that a 
software base component cannot reference an external user defined type. 

• All Array types will use the identifiers ARRAY_ELEMENT and 
ARRAY_INDEX for their component parts. These identifiers are case 
sensitive just like any other identifier including the component names that are 
stored in the CAPS software base. 

• The order of all operator or ADT operator input and output parameters will be 
exactly the same as the order of those parameters in the corresponding Ada 
package specifications and bodies. This requirement is necessary for not only 
the component transformation process once a component match is selected, but 
more importantly for the final generation of Ada code performed by the 
translator. 

The last assumption specifically applies to the order Ada procedure parameters are 
declared in the Ada specification. That order must be identical to the order the 
corresponding parameters are declared in for the PSDL specification. 



75 



b. Generic, ADT, and User Defined Type Definitions 

There are also several assumptions that pertain to how a generic, ADT or user 
defined type may be defined. These assumptions are outlined below and then discussed 
in more detail. 

• All generic identifiers must be defined as Ada types. They may not reference 
user defined types or other generics. 

• A user defined type also must be defined as an Ada type. Its one difference 
from generics is that if a user defined type is defined as an Ada array, the 
components of that array may be defined as generic types or other user defined 
types. 

• All generic parameters must be referenced by at least one of the component's 
input or output parameters. Otherwise instantiation is not possible and any 
attempt to match that software base component will fail. 

• Except for the abstract data type (ADT) with the same name as the type 
component that defines it, all of the other type component ADTs are visible only 
within that type component. 

The only types definitions allowed for generic parameters are Private, Discrete, Array, 
Digits, Delta, Range, and Access. These type definitions must be specified explicitly. 
Neither another generic parameter nor a user defined type can be referenced by a generic 
parameter. 



There are actually two categories of user defined types. A type component 
has a given name that identifies the primary abstract data type the component describes. 
However, it may also have some abstract data types, visible only to elements within the 
type component, that follow the same rules for definition as the primary ADT. For 
instance, the type component for Ring in Figure 23 makes Ring the primary ADT by 
using it to name the component. The component also has a secondary ADT called 
Direction that must be defined according to the rules established for any user defined 
type. ADT operator input and output parameters within Ring may be defined as the 
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type Direction, but parameters of operators outside the Ring component may not. This 
is a current limitation of this implementation. Ultimately, these secondary ADTs should 
be visible to any component with access to the type component containing secondary 
ADTs. These secondary ADTs are also discussed in Section IV.A.4.e. Section IV.A.4.a 
and Appendix A also discuss and provide examples of user defined types. 

c. Input and Output Parameter Type Definitions 

Certain assumptions have been made for specifying what is acceptable for 
input and output parameter type definitions. They are as follows: 

• Input and output parameters in an operator component may be defined in terms 
of the component's generic types (software base components only), other user 
defined types in the prototype specification (this obviously excludes software 
base components because they are stored with their component PSDL 
specification and not the prototype PSDL specification), or Ada types. 

• ADT operator input and output parameters in a type component may be defined 
in terms of the component or ADT operator's generic types (software base 
components only), other user defined types in the prototype specification (this 
again excludes software base components), the type component's primary ADT, 
secondary ADTs, or Ada types. 

d. Query by PSDL Specification 

Finally, the prototype PSDL specification for a query PSDL specification must 
include specifications of all user defined types referenced by the PSDL query 
specification. 

4. Using the PSDL Grammar With User Defined Types 

PSDL specifications for type components (also referred to as user defined types) 
can have one or more ADT in them. The ADT with the same identifier as the type 
component name is considered the primary ADT. Other PSDL specifications may use 
input or output parameters that reference that primary ADT. In order to be able to 
recognize the Ada type of parameters that reference user defined types, storing the Ada 
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type of an ADT became necessary. Within the PSDL grammar, the non-terminal 
type_decl is used to house this information. This was not the original use envisioned for 
type_decl by the original abstract model for the PSDL grammar, but seems to meet the 
current requirements of type matching without incurring negative side effects. 

5. CAPS Interface Requirements 

When a PSDL query is initiated from within the CAPS graphic or syntax-directed 
editor, two files must be present in the current working directory of the prototype 
designer. The first file is the PSDL specification for the entire prototype and its file 
name must be prototype _psdl_spec.txt. The second file is specific to the query 

component and its file name must be either type _psdl_spec.txt or operator _psdl_spec.txt 
depending on whether it is a type or operator component respectively. The reason the 
prototype PSDL specification file is necessary is to facilitate the identification of the Ada 
type of any user defined types in the prototype that the query component may reference. 
In order to do type matching, all query component type definitions must be resolved to 
their corresponding Ada type. 

6. Program Flow, Source Code Files, and Data Files for Signature Encoding 
and Type Matching 

The program flow is fairly similar for operator and type components, as well as 
much of the source code and data files. First, the query component input and output 
signatures are encoded by using the information in the prototype designer's current 
working directory, in the files prototype _psdl_spec.txt and either type _psdl_spec.txt or 
operator _psdl_spec.txt. The encoded signatures are then stored in the file Signature.dat. 
Next, the type matching algorithms read Signature.dat and search through the CAPS 
software base, looking only in the appropriate partitions and checking software base 
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component signatures against the query component. All final valid matches are returned 
in order of closest to farthest match. 

a. Operator Component PSDL Query 

Here is a diagram of the process flow and files involved with an operator 
component PSDL query: 
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Figure 19 - Operator PSDL Query 

Ellipses represent data files. Three dimensional rectangles and cubes represent Ada code 
and the object shaped like a plus represents C++ code. Although this diagram is 
intended to portray the process flow for an operator component PSDL query, the two 
way arrows between the C++ code and the CAPS Software Base illustrate that the 



79 



process is very much the same for component storage as it is for component retrieval. 
The only real difference occurs in the C++ code located in the left parallelogram. 

b. Type Component PSDL Query 

The type component code incorporates the code for the operator component 
query because type components can contain operators. It is, however, installed in 
different packages in order to incorporate the necessary changes and additions directly 
into the code. Here the Signature.dat file contains the aggregate signature of all the type 
component's individual operator signatures. Some additional Ada and C++ files are 
added to deal with the type specific signature encoding and matching routines. Here is a 
diagram of the process flow and files involved with a type component PSDL query: 




Figure 20 - Type PSDL Query 
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The major difference from the operator query is that the final routines for Array 
matching and generic instantiation validation are not available in this implementation. 
Another difference to note here is that separate signature files are created for the type 
component's individual operators during the signature encoding process. The names of 
these data files are the operator names concatenated with ".txt" as the file extension. 
During the component storage process these files are used to load the signatures of the 
type component individual operators into the software base. During component query 
and retrieval, these signature files are used to ensure that mappings of individual 
operators are valid matches. 

7. The PSDL Ada Data Structure 

An abstract data type (ADT) was developed in Ada that allows a PSDL 
specification to be represented as an Ada data structure. [Bayr91] This ADT is used 
extensively by the Ada packages that perform signature encoding. Occurrences of this 
ADT, also called a PSDL type , represent a particular PSDL program or specification. 
There are a host of Ada packages that make up this ADT including psdl_io, 
psdljd _pkg, psdl _program _pkg, psdljcomponent _pkg, psdl_concrete_type _pkg, 

typejiame _pkg, and type_declaration _pkg. The ADT provides a data structure in 
which to store all of the elements of a PSDL program (i.e., operators, data streams, and 
their associated attributes) along with the valid operations that allow you to access the 
ADT elements. The psdl Jo package allows you to perform gets and puts on the data 
structure. Utilizing the "get" procedure you can pass a PSDL source file (i.e., the text of 
a PSDL specification) to the "get" procedure, it parses the file and subsequently loads 
the ADT data structure, and then specific PSDL information can be accessed via the 
ADT operations. 
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8. Ordering Retrieved Components 

Whenever more than one software base component match is found for a query 
component, it is desirable to return a listing of matched software base components in an 
order that indicates which components were the better or closer match. 

a. Operator Component Match Ordering 

Because the number of input parameters must match exactly for a valid match, 
that attribute is not useful for ordering matches. The first criterion for ordering, 
therefore, is the difference in the number of output parameters between the query 
component and each software base component that is a valid match. The second 
ordering criterion is the type closeness difference. The type closeness for the software 
base components is the sum of the type closeness of each input and output parameter to 
the corresponding parameters in the query component. So, for example, all matched 
software based components with the same number of output parameters as the query 
component are listed first followed by all matched software based components that have 
one more output parameter than the query component, and so on. Within a group of 
software base components that have the same number of output parameters, the ordering 
is then based on type closeness with software components with a type closeness of 0 
listed before those with a type closeness of 1 and so on. 

b. Type Component Match Ordering 

The first criterion for ordering type component matches is the difference in the 
number of ADTs between the query component and each software base component that 
is a valid match. The second ordering criterion is the difference in the number of 
operators. So, for example, all matched software based components with the same 
number of ADTs as the query component are listed first followed by all matched 
software based components that have one more ADT than the query component, and so 
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on. Within a group of software base components that have the same number of ADTs, 
the ordering is then based on number of operators with software components with the 
same number of operators as the query component listed before those with one more 
operator than the query component and so on. Attributes such as the total number of 
operator input and output parameters and individual operator signatures cannot be used 
in the ordering scheme. The reason for this is although an operator mapping has been 
found for the type component that guarantees a valid match, that mapping could be one 
of many possible mappings and the correct or best mapping is not known at this point 

9. Ada/C++ Interface Issues 

Because considerable information is passed back and forth between Ada and 
C++ programs during signature encoding and matching, interface issues were explored 
that would allow a) Ada programs to call C++ programs, b) C++ programs to call Ada 
programs, and c) Ada and C++ programs to share parallel data structures. All the 
technical problems were resolved to accomplish these three goals. However, one 
technical obstacle proved too cumbersome to surmount. Although a C++ program can 
call an Ada program, Ada programs are really designed to be the main running program 
and so a dummy Ada program had to encapsulate the C++ program for everything to 
work. Rather than implement in this manner, we chose to have Ada and C++ programs 
pass information via text files. 

10. Complexity Issues in Matching ADT Operators, Array Components, and 

Validating Generic Instantiations 

While initial ADT matches are obtained by using the aggregate input and output 
signatures of their operators, final match confirmation cannot be done without finding a 
mapping between the query and software base component ADT operators in which the 
individual signatures of each query and software base component ADT operator pair 
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match. Given X query component and Y software base component ADT operators, the 
worst case number of combinations to explore before either finding a valid mapping or 



determining that none is possible would be on the order of 




Although this is 



essentially a combinatorial problem which could have a big impact on processing time, 
the algorithm for finding a valid mapping is able to do considerable pruning and short 
circuiting of the search tree thus significantly reducing the actual order of complexity to 
within reasonable processing time limits. This same algorithm is used for matching Array 
components and during the validation of a generic instantiation. 

11. Encoding Input and Output Signatures 

Separate encoding schemes for input and output signatures have been 
developed that can be used with both operators and types. Input signatures employ a 
downward encoding scheme so that, for a particular parameter type, the region 
representing the parameter type and all its sub-regions are encoded into the signature. 
One disadvantage to downward encoding is the possibility of false matches, discussed in 
Section IV.C.g. Output signatures, on the other hand, employ an upward encoding 
scheme whereby, for a particular parameter type, the region representing the parameter 
type and all its super-regions are encoded into the signature. 

One subtle point to highlight with operator input signatures is that there is never 
any concern about the software base component having more input parameters than the 
query component. The reason is because the initial syntactic matching filter described by 
the basic operator rules in Section IV.B.l will eliminate any software base component 
with a different number of input parameters than the query component from 
consideration prior to the employment of signature matching filters [McDo91]. This is 
important because it provides an opportunity to use the upward encoding scheme for 
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both operator input and output signatures. The problem is that we still cannot use the 
upward encoding scheme for type input signatures. 

Type input signatures are aggregates of all the input parameters of the type 
component's operators. Because a software base type component can have more 
operators than a query type component, it is possible for the software base type input 
signature to contain more input parameters than a corresponding query type input 
signature. If an upward encoding scheme is employed, we run into problems. The best 
way to demonstrate why is through the following examples using an upward encoding 
scheme where Region 1 is Positive, Region 2 is Natural, and Region 6 is Integer. The 
first example we look at is of two output parameters and the software base component 
output parameter is type Positive and the query component output parameter is type 
Integer: 



Region 1 


Region 2 


Region 6 


1 


1 


1 


0 


0 


1 



Here we see that the query component signature is a subset of or "fits inside" the 
software base signature. This is what we want because encoding any additional 
information (i.e., extra output parameters) into the software base component signature 
will not affect the match. Let us now look at input signatures using the upward encoding 
scheme for two components where we have a software base component input parameter 
of type Integer and a query component input parameter of type Positive: 

Region 1 Region 2 Region 6 
sbc 0 0 1 

qc 1 1 1 
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The first important thing we notice is that in order to compare input signatures when 
using the upward encoding scheme, we must now try and fit the software base 
component input signature into the query component input signature, the reverse of what 
occurs with output signatures. This is the root of the problem for type component input 
signatures encoded with the upward encoding scheme. The two input signatures in the 
above example do match, but as soon as an extra software base component input 
parameter is introduced, that software base component input signature can no longer be 
guaranteed to fit inside the query input signature. This is an undesirable situation in 
which a valid software base candidate component would be incorrectly eliminated from 
further consideration because of a failure to recognize that the input signatures match. 
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V. COMPONENT INTEGRATION 



Once a user has selected a particular software base component that matches the 
provided PSDL query specification, the software base component must be integrated 
into the user's prototype working directory. An integration mechanism has been 
developed for operator components. The integration of type components is not 
implemented in this thesis. 

A. THE PURPOSE OF COMPONENT INTEGRATION 

The CAPS software base is a library of reusable software. It includes PSDL 
specifications, Ada specifications, and Ada implementations for all its stored 
components. The purpose of component integration is to treat the software base as a 
standard Ada library and use the Ada "with" clause to deal with software base 
components as library units [Ada83]. This way the software base source code is 
protected from any external modifications. Hooks from the user's prototype must be 
provided that reference and provide access to the Ada specification that corresponds to 
the selected software base PSDL specification, and these hooks are implemented by the 
Ada "with" clause. A wrapper package is built to incorporate these hooks. The file 
name of the wrapper package is always operator _name_Pkg.a. 

In order to successfully integrate the selected component into the user's working 
directory, the generation of the wrapper package will normally require some degree of 
transformation of the software base component. That is because the query component 
and the software base component may have numerous differences. Parameter names 
may be different, parameter types may match but may not have the same ordering in the 
software base and query components, query component user defined types may need to 
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be referenced, and type declarations may need to be made for special cases like 
composite types. Once again, the transformation is effected inside the wrapper package. 
No changes are made to the software base component. 

Component integration for the CAPS software base was first implemented by Dogan 
Ozdemir. [Ozde92] Ozdemir provided integration implementations for software base 
components selected by browsing, keyword search, and PSDL query. This thesis 
provides an implementation of component integration for operator PSDL queries only. 
In doing so, it removes some limitations imposed by Ozdemir's transformation process. 
Those limitations include (1) an assumption that the order of input and output 
parameters between the query and software base components was the same, (2) partially 
built generic wrapper packages for which the user would have to edit the wrapper and 
enter the instantiations once the transformation was finished, (3) use of the Ada 
renaming declaration to make a call to the software base component operator which 
cannot handle incompatible parameter ordering, and (4) an assumption that user defined 
types would not be used to define input or output parameters. The major reason these 
limitations can be removed is due to manner in which this implementation collects the 
information necessary for component transformation. Ozdemir parsed the query and 
software base PSDL specifications which provided him with a fast and automated 
method for obtaining critical component data, but with great difficulties in automating a 
mapping for that data. This thesis provides a graphical user interface that presents the 
key component data for both components to the user and allows him/her to select the 
appropriate mapping, greatly simplifying the subsequent transformation. This 
transformation process will be discussed in more detail in the following section. 
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B. THE COMPONENT TRANSFORMATION PROCESS 

The component transformation process is provided to adapt the software base 
component to the format required by the query PSDL specification. It consists of two 
main steps. First, a mapping between query and software base input and output 
parameters must be determined. And second, a wrapper package is created based on the 
mapping information. Figure 21 below graphically illustrates the component 
transformation process: 
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Figure 21 - Operator Component Transformation Process 

The parallelograms depicted in Figure 21 represent TAE graphical user interface (GUI) 
display items [NASA91]. The GUI is discussed in detail in Section VI. User interaction 
with the GUI builds the necessary parameter map. The map is then used by an Ada 



89 



routine that generates a wrapper package that is stored in the user’s prototype working 
directory. The operator component transformation process is now described in more 
detail. 

1. Mapping The PSDL Specifications 

As portrayed by Figure 21, Ada program parses both the query and software base 
component PSDL specifications, breaking the specifications down by parameter category 
(input, output, and generic) and storing that information in separate text files by category 
for each component. These text files serve as the basis for the user driven parameter 
mapping and are loaded into TAE display items for viewing and mapping selection. To 
simplify the mapping task for the user, all parameter types are defined in terms of their 
corresponding Ada type. So, for example, if the query component input parameter 
Q_In_Parameterl was defined by the user defined type Index, and Index was defined as 
the Ada type Range, then the user would see "Q_In_Parameterl : Range" as one of the 
selections in the query component input parameter TAE display item. 

The query and software base component input and output parameter TAE display 
items are all interactive. The user creates the parameter map by selecting a parameter 
from a query input or output TAE display item and then selecting the corresponding 
parameter from the corresponding software base TAE display item. A type check is 
made to ensure that the two selected parameters match correctly. If they do not, an 
error message is generated and the user must make a new selection. If the two selected 
parameters match, then that selection is added to the parameter map and the two 
parameters are removed from the selection lists. A software base component parameter 
in the TAE display item that is preceded by the expression {G} informs the user that the 
parameter is defined by a generic parameter. When the user attempts to map a query 
component parameter to a software base component parameter, a check is made during 
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type matching to see whether the software base component parameter is defined by a 
generic parameter. If it is, then there are two possible cases that the match process must 
deal with. The first case is that the generic parameter has been instantiated and for that 
case the match process must ensure that the query component parameter matches the 
instantiation. The second case is that the generic parameter has not been instantiated and 
so, as a byproduct of the match process, the generic parameter must be instantiated by 
the query component parameter. 

Unlike the input and output parameter TAE display items, the software base 
component generic parameter and parameter mapping TAE display items are passive. 
The user can view their contents, but does not interact with them. The parameter 
mapping TAE display item is updated as each selected parameter pair is validated as 
matching correctly. 

Although automating the parameter mapping process to eliminate user interaction 
would speed up the integration and transformation of selected components, without a 
semantic matching capability it is an unrealistic goal. It is quite possible that a selected 
software base component may have numerous valid mappings with the query component. 
One of the limitations of syntactic matching is its inability to use semantics to determine 
the appropriateness of a particular mapping. For example, suppose we have the 
following PSDL specifications for input and output parameters of the query and software 
base component: 
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Query Component Parameters: 

Input 

Costs : INTEGER, 

Revenues : INTEGER 

Output 

Profits : INTEGER 

Software Base Component Parameters 
Input 

Sales : INTEGER, 

Expenses : INTEGER 

Output 

Income : INTEGER 

Figure 22 - Effect of Semantics on Automating Parameter Mapping 

Examining the two sets of input parameters in Figure 22, we see that either of the 
following two mappings is syntactically correct: 

Mapping 1: 

Costs — » Expenses 
Revenues — > Sales 
Mapping 2: 

Costs — » Sales 
Revenues — > Expenses 

Figure 23 - Possible Input Parameter Mappings 
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Figure 22 provides a simple example of specifications for the calculation of an 
organization’s profits based on its costs and revenues. We know that the desired 
mapping from Figure 23 is Mapping 1, but that knowledge is based on understanding the 
semantics behind the parameter identifiers Costs, Expenses, Revenues, and Sales. 
Syntactic matching does not have access to this semantic knowledge and therefore views 
both mappings as equally valid. This problem is extended to the selection of the correct 
instantiation in the case of a generic software base component. Therefore, we have 
incorporated user interaction in the mapping process to provide the semantic reasoning 
that would otherwise be unavailable with automatic component integration. 

2. Generating the Wrapper Package 

The wrapper package serves as the bridge between the software base component 
and the user's PSDL specification. The transformation or translation of the software 
base component PSDL specification as prescribed by the query component PSDL 
specification is embedded into the wrapper package. Important aspects of the 
transformation process for generating a wrapper package are described below. 
Examples of wrapper packages generated for generic and non-generic software base 
components are provided in Appendix C. 

a. Incorporating the Ada With Clause 

The Ada "with" clause provides access to the software base component library 
unit. If user defined types are present in the query component PSDL specification, then 
other library units must also be referenced. A user defined type is defined in the 
prototype PSDL specification as a separate type with its own Ada implementation. The 
library unit that represents the Ada implementation of the user defined type is what must 
be accessed using a "with" clause in order to make the user defined type visible inside the 
wrapper package. Using Figure 27 as an example, let us suppose that the query 
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component PSDL specification for the operator Pick_A_Card has a parameter that is 
defined by a user defined type named Card_Deck. Based on implementation naming 
conventions, we know that the Ada implementation of Card_Deck must be called 
Card_Deck_Pkg. Therefore, during the generation of the wrapper package, the 
statement "with Card_Deck_Pkg;" will be included and any reference to the user defined 
type will be embedded as "Card_Deck_Pkg.Card_Deck" in the wrapper package. This is 
done for all user defined types referenced in the query component PSDL specification. 
b. Parameter and Type Declarations 

Parameter declarations are first made in the subprogram specification. 
[Ada83] The Ada language only allows predefined types to be used within parameter 
declarations. A predefined type may be either a type predefined by Ada or a user defined 
type. If a parameter type in the query PSDL specification is either a predefined Ada type 
or a user defined type then its incorporation into the wrapper package when creating the 
operator specification is very simple. Either it is used exactly as defined in the case of an 
Ada predefined type, or a reference is made to the package that defines it as described in 
Section V.B.2.a above in the case of a user defined type. However, in some cases, the 
query component parameter type may not be an Ada predefined type or a user defined 
type, but may actually be defined by the query PSDL specification. Array types provide 
a good example. Let us look at the operator Bubble_Sort in Figure 30. It provides a 
complete type definition for the parameter The_In_Array. However, this definition 
cannot be used in its exact form when writing the subprogram specification for 
Bubble_Sort into the wrapper package. Instead, a type declaration must be embedded in 
the wrapper package defining the type of The_In_Array before the Bubble_Sort 
subprogram specification is written. The Bubble_Sort subprogram specification will then 
reference the type declaration. As a naming convention, the identifier for the type 
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declaration will be the name of the relevant parameter concatenated with the base type of 
the type declaration. If the base type of the type declaration was Array, then "_ARRAY" 
would be concatenated to the name of the parameter that necessitated the type 
declaration. A snapshot of the wrapper package containing the necessary type 
declarations and subprogram specification for Bubble_Sort is provided in the following 
figure: 

type The_In_Array_ARRAY is array (Index_Pkg. Index) of CHARACTER; 
type The_Out_Array_ARRAY is array (Index_Pkg. Index) of CHARACTER; 
procedure Bubble_Sort (The_In_Array : in The_In_Array_ARR A Y; 

The_Out_Array : out The_Out_ Array _ ARRAY); 

Figure 24 - Example of Required Type Declaration 

c. Procedure Calls to Invoke Software Base Component Operators 

Ada provides two methods to call a procedure defined in the specification of a 
package. [Ada83] The first and more direct method is the renaming declaration. A 
renaming declaration allows you to give a procedure in a referenced external package a 
new name and then use the new name locally to access the external procedure. This 
could be employed in conjunction with generating a wrapper package by renaming the 
procedure corresponding to the software base component operator with the name of the 
query component operator. All local calls to the query component operator procedure 
invoke the software base operator procedure which is exactly the outcome desired. 
However, the renaming declaration is subject to stringent constraints that require the 
renaming declaration to use the pre-established ordering of parameter declarations in 
both the software base and query component operators. With this restriction, we run 
into two potential problems. First,. the order of the two sets of parameter declarations 
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may not match up by type, in which case the Ada compiler will reject the renaming 
declaration. And second, the order of the two sets of parameter declarations may not 
match up semantically (as discussed in Section V.B.l), in which case the Ada compiler 
will accept the renaming declaration, but the logic of the generated wrapper will be faulty 
(i.e., we could have Costs mapped to Sales and Revenues mapped to Expenses as 
described in Figure 23). 

Because we cannot assume that the order of parameters in the software base and 
query component operators will always be exactly what is required (in fact the ideal of a 
perfect match will likely be very rare), a second less direct method is employed to call 
the procedure associated with the software base component operator. This method 
requires implementing the procedure that defines the query component operator. Since 
an implementation is involved, the wrapper package must be extended from a package 
specification to the inclusion of a package body as well. It is within the package body 
that the implementation of the query component operator is defined. This definition 
consists of two primary parts; the subprogram implementation and, within that 
implementation, the call to the software base component operator procedure. 
Incorporating the subprogram implementation into the wrapper package body is identical 
to the previously described process for handling the subprogram specification with only 
minor formatting differences. Calling the software base component operator procedure 
is the second important part of the subprogram implementation. Because the parameter 
mappings have already been established by the user, its incorporation into the wrapper 
package is straightforward. If the software base component is non-generic then the 
software base component package name is used as a prefix to the procedure call. If the 
software base component is generic then the name of the instantiation of the software 
base component package is used as a prefix to the procedure call. The only factor that 
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complicates incorporating the procedure call to the software base component operator 
is the case in which the software base component has more output parameters then the 
query component. That situation is discussed in the next section. 

d. Excess Output Parameters in the Software Base Component 

The software base component is allowed to have a greater number of output 
parameters then the query component. If that is the case, then dummy variables must be 
created to be used as actual parameters when making the procedure call to the software 
base component operator. Incorporating the dummy variable declarations into the 
wrapper package body is straightforward unless the parameter type of the unused output 
parameter is not a predefined Ada type. If not, then a type declaration may have to 
precede the variable declaration. One of two cases is possible when the unused output 
parameter is not a predefined Ada type. In the first case the unused output parameter is 
defined by a generic parameter. If that is the case, then the generic parameter has been 
instantiated with a query component parameter type that is either a predefined Ada type, 
a user defined type, or was defined with a type declaration. The actual parameter used 
for the instantiation is used to define the unused output parameter for the first case. The 
second possible case is that the unused output parameter is defined by the software base 
component’s PSDL specification. In that case, a type declaration must precede the 
variable declaration for that unused output parameter. The type declaration is created in 
the same manner described in Section V.B.2.b above. The name of each unused 
software base component output parameter is concatenated with ”_DUMMY" to 
produce an identifier for its corresponding dummy variable. 
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e. Generic Instantiation 

If a software base component is generic then it must be instantiated within the 
wrapper package. This is straightforward because the instantiations have already been 
defined during the parameter mapping process described in Section V.A. The actual 
parameters used in the instantiation will depend on how the type of the query component 
parameter responsible for the instantiation is defined. Thus, the actual parameter for the 
instantiation could be a predefined Ada type, defined by a type declaration, or a reference 
to a user defined type. The naming convention utilized for the instantiation attaches 
"TMP_" to the front of the query component operator name and "_PKG" to the end to 
produce the instantiation name. So, for example, if the query component operator name 
is Bubble_Sort then the name of the generic instantiation of the corresponding generic 
software base component would be TMP_Bubble_Sort_PKG. Examples of all aspects 
of generating a wrapper package are provided in Appendix C. 
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VI. GRAPHICAL USER INTERFACE 



The original CAPS software base graphical user interface (GUI) was developed by 
Dogan Ozdemir. [Ozde92] This thesis makes two primary changes to Ozdemir’s GUI. 
First, all software base maintenance routines are removed from the GUI. Second, a new 
interface is provided for the integration of software base operator components. 

A. SOFTWARE BASE MAINTENANCE ROUTINE REMOVAL 

Maintenance routines for the CAPS software base include adding, deleting and 
updating components and language libraries. While these are important functions 
necessary for the successful management of the CAPS software base, we do not believe 
that a user working to develop a prototype should have access to these capabilities. A 
user should only be concerned with acquiring reusable components from the software 
base. The actual administration of the software base should be a separate module with 
access limited to the software base manager. Therefore, all routines that relate to the 
management of the CAPS software base have been removed from the GUI that supports 
the prototype developer. 

B. OPERATOR COMPONENT INTEGRATION 

The only major addition to Ozdemir's GUI is the inclusion of a GUI panel for the 
parameter mapping necessary for the integration of a software base operator component. 
[Ozde92] All other GUI panels were designed and implemented by Ozdemir. Minor 
modifications were made to two of Ozdemir's GUI panels. The Component selection 
which allows a user to add or update software base components was removed from the 
Main Menu Panel. And the Delete selection that allows a user to delete software base 
components was removed from the Select Panel. Some modifications were also made to 
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some of the Ada code that Ozdemir added to the TAE generated Ada code [NASA91]. 
These modifications pertain to the addition of signatures, type matching, array matching, 
and generic instantiation validation to the PSDL query process. 

The following figure illustrates the new parameter mapping panel: 
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Figure 25 - Parameter Mapping GUI Panel 

A detailed description of how a user performs parameter mapping in the above 
Parameter Mapping Panel is provided in Section V.B.l. To summarize, the user moves 
the mouse over a query component input or output parameter and then clicks the mouse 
button to select that parameter. The process is repeated for a corresponding software 
base parameter. Once the software base parameter is selected, the two selected 



parameters are checked to ensure they match. A valid match will cause both selections 
to be erased from their respective TAE display items and written to the Parameter Map 



100 



TAE display item. An invalid match will cause a warning message to be displayed and 
the user will then have to modify his/her selections. Once all query input or output 
parameters have been selected, that particular query TAE display item and corresponding 
software base TAE display item will be dimmed. It is important that the user be able to 
freely select from either the input or output parameters without having the order of 
selection imposed in any form. The reason for this is that order of selection is important 
for correct generic instantiation. 

The figure below shows the Parameter Mapping Panel after a valid selection of two 
parameters from Figure 25 is made: 
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Figure 26 - Parameter Mapping Example 

Note that two selections have been removed from their corresponding TAE display items 
in Figure 25 and their mapping has been recorded in the Parameter Mapping Tae display 
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item (Figure 26). When all query component parameters have been mapped successfully, 
generation of the wrapper package and wrapper package body is automatically initiated. 
The user is returned to the main menu upon completion of wrapper generation. If the 
selection of a particular mapping does not instantiate all the generics then an error 
message will be display and the user will be prompted to try another mapping. In some 
cases the user may select an incorrect partial mapping that will not allow any of the 
remaining parameters to be matched. In this case, the Clear button can be used to clear 
the partial mapping and allow the user to start the parameter mapping process from the 
beginning. The Cancel button allows a user to terminate parameter mapping at any 
point. The user will then be returned to the previous menu. Finally, the Help button 
provides information on the parameter mapping process and all selection buttons in the 
panel. 

One limitation has been discovered with TAE selection lists. They are limited to a 
maximum of 80 characters. This could lead to problems when mapping input and output 
parameters. Some abbreviated naming conventions have been adopted to minimize this 
limitation. First, {G} is used to signify that a software base component parameter is 
defined by a generic. And second, AE and AI are used as abbreviations for 
ARRAY_ELEMENT and ARRAY_INDEX respectively. These abbreviations only 
apply to the information displayed in the TAE display items. PSDL specifications 
require the full identifier names. Another strategy to work around this limitation is to 
keep parameter identifiers short. 
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VII. CONCLUSIONS AND FUTURE RESEARCH 



This thesis has described and implemented reliable automated assistance for finding 
reusable components from a large repository of existing software. Starting with the 
existing CAPS software base implementation originally developed by McDowell and 
improved by Ozdemir, this thesis has further improved the component retrieval and 
integration capabilities of the CAPS software base by (1) implementing parameter type 
matching, (2) extending the filtering process underlying the software base schema to 
further partition the component retrieval search space, (3) providing generic instantiation 
validation as part of the operator component matching process, and (4) removing many 
of the limitations from the previous operator component integration process [McDo91, 
Ozde92]. The task of automating the entire process from component retrieval through 
integration has been described and successfully implemented for operator components. 

Perhaps the most significant lesson learned at the end of this thesis is the importance 
of a formally defined model for software reuse. A formal strategy for designing and 
engineering software base components specifically for reuse are crucial because the 
specifications of these components serve as the basis for component retrieval. Some of 
the issues that should be resolved and then formalized are discussed in Section VILA 
below. 

The development of this implementation has highlighted the important role 
semantics plays in the component parameter mapping process. Only by incorporating 
semantics can automatic component parameter mapping take place without the need for 
user interaction. While former limitations were removed, and accuracy and efficiency 
increased, this implementation is far from complete. There are still limitations imposed 
by this implementation as well as numerous areas in which the implementation can be 
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extended. The following sections identify those areas where improvements can be 
made and in some cases suggestions are provided for accomplishing those 
improvements. 

A. DEVELOP A FORMAL MODEL FOR SOFTWARE REUSE 

It is difficult to come up with a clean implementation of a component retrieval 
mechanism if there is no formal model defining the process of software reuse. That is 
because the software reuse model explicitly defines the boundaries of the problem. In 
the context of CAPS, this model must address the capabilities and limitations of the 
CAPS translator, the CAPS software base, PSDL, and the Ada language (for the current 
implementation). Issues such as the treatment of user defined types, composite types, 
constrained and unconstrained types, and what can and cannot appear in software base 
or query component specifications must be examined together, because decisions made 
for one issue will ultimately have some impact on most other issues. Suggestions for 
how to deal with some of these issues are outlined below and are further discussed later 
in Section VII. 

1. User Defined Types 

It appears that the cleanest treatment of user defined types (UDT) is to 
encapsulate them into abstract data types, declare them as Private types, and store them 
as type components in the software base. Thus, a data structure is provided as well as all 
operations required to gain access to and process the information embedded in the data 
structure. This will become powerful once this implementation is modified to allow 
software base components to reference UDTs within the software base (see Section 
VII. D). Perhaps a tool could be developed that would serve as a generic template for 
building common classes of UDTs. 
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2. Type Constraints 

The issue of whether a parameter type is constrained or unconstrained becomes 
important when generating Ada code from PSDL specifications. Both the CAPS 
translator and the component integration process generate Ada code. One solution 
might be to provide constraint information within PSDL (see Section VH.F.5). User 
defined types could be used to provide prototype designer defined constraints. The 
safest solution is to require all constraints to be passed as instantiations of generic 
parameters. However, this approach may be more limiting. 

3. Relating PSDL to Ada 

Decisions need to be made regarding what kinds of Ada type declarations will be 
allowed in PSDL specifications. The rules will likely be different for software base and 
query components. For example, we have already specified that query components 
cannot have generic parameters. In some cases it may be helpful for PSDL parameter 
type names to be different than their corresponding Ada type names. Suggested 
conventions are made for the following types that should only appear in generic 
parameter declarations (i.e., not input or output parameter declarations): 

• Ada type name = Private, PSDL type name = PRI V ATE_TYPE 

• Ada type name = Discrete, PSDL type name = DISCRETE_TYPE 

• Ada type name = Enumeration, PSDL type name = ENUMERATION_TYPE 

• Ada type name = Access, PSDL type name = ACCESS_TYPE 

The following suggestions are made for other types that may or may not appear as 
generic parameter declarations: 
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• Ada type name = Array, PSDL type name = ARRAY_TYPE 

• Ada type name = Digits, PSDL type name = DIGITS_TYPE 

• Ada type name = Delta, PSDL type name = DELTA_TYPE 

• Ada type name = Range, PSDL type name = RANGE_TYPE 

Record types present their own unique concerns because Ada does not have any 
treatment for generic formal record types. The suggested solution is to allow query 
component Record parameter types to only be matched to a software base component 
generic Private type. In this manner, software base component Record structures can be 
encapsulated into abstract data types. This also eliminates a potential technical concern. 
The strong typing facilities of Ada treat two Records with identical structures as two 
different types. This could create problems with the compilation of automatically 
generated code. 

B. POPULATE THE SOFTWARE BASE 

Although commercial Ada software component libraries exist, and new software 
repositories within the Department of Defense are starting to come on-line, the CAPS 
software base is still very under-populated. Adding components to the CAPS software 
base is a labor intensive process. The primary reason for this is that a PSDL specification 
must be written for any Ada component added to the software base. In addition, certain 
limitations, like the inability to handle the "in out" parameter mode eliminate many 
candidate components. 

One tool that would help resolve this problem is an automated translation tool that 
could take an Ada specification as input and generate the corresponding PSDL 
specification. Ideally, this translation tool could include some sort of conversion of Ada 
specifications that use "in out" parameters to an equivalent form that CAPS can use. 
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C. DEVELOP A SOFTWARE BASE MANAGEMENT GUI 

It is necessary for a separate GUI to be developed for the management of the CAPS 
software base. Access to management functions such as language library creation or 
component add, delete, and update should be carefully controlled since these functions 
have a direct effect on the composition of the CAPS software base which in turn is 
utilized by a diverse group of users. The original GUI designed and implemented by 
Ozdemir already incorporates most of these functions, so the task of implementing a 
separate software base management GUI should not be a difficult one [Ozde92]. 

D. EXTEND USER DEFINED TYPES TO THE SOFTWARE BASE 

Allowing components added to the software base to reference user defined types 
already in the software base will significantly increase the usefulness of the CAPS 
software base. So, for example, let us say that we are encoding the signature of an 
operator component as a precursor to adding that component to our software base. At 
some point we reach an input parameter In_Param of type Shipboard_Navigation. 
Shipboard_Navigation is not a predefined Ada type, and it is not defined as one of the 
components generic parameters. At this point, the current implementation would abort 
processing and declare a parameter type error. An improvement to this would be to 
search through the type components in the CAPS software base to see if 
Shipboard_Navigation has already been defined. Specifically, within the 
Operator_Component_Library, the Operator_Component_Dictionary could quickly be 
searched since it is indexed by component name. If Shipboard_Navigation was found 
then its corresponding Ada type could be extracted and provided to the signature 
encoding process. If Shipboard_Navigation is not found, then an error message should 
be generated and the attempt to add this component to the software base should be 
aborted. 
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E. REDUCE THE USER INTERACTION WITH PARAMETER 
MAPPING THROUGH A PRE-MAPPING FUNCTION 

Automatic mapping selections should be performed, where possible, as an aid to the 
user's establishment of a parameter mapping scheme. These automatically selected 
mappings could be accomplished in cases where only one parameter mapping was 
possible for a particular query component parameter, or only one instantiation was 
possible for a particular generic parameter. This would reduce the number of mappings 
the user would have to select. It would also be helpful to provide a visual ripple-through 
effect for all instantiations. For example, suppose software base component parameters 
SBC_Inl, SBC_In2, and SBC_Outl are all defined by the generic parameter 
SBC_Gen_Param. As soon as the user makes a selection that instantiates 
SB C_Gen_Param, all software base component parameters defined by SBC_Gen_Param 
should be redisplayed with their parameter types updated to reflect the generic 
instantiation they are then locked into. 

F. REMOVE PSDL SPECIFICATION LIMITATIONS 

Several improvements can be realized by removing various requirements imposed by 
this implementation for writing PSDL specifications that are more restrictive than the 
PSDL language intended. 

1. Allow Extra Generic Parameters 

The current implementation will not process a PSDL specification that has 
uninstantiated generics during component integration. This includes generic procedures, 
which the current implementation does not recognize. Allowing generic procedures, 
even though they cannot be defined at present in PSDL, will expand the scope of the 
kinds of components admitted into the CAPS software base. Adjustments would have to 
be made during the integration process to allow a user to define any uninstantiated 
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generic within the generated wrapper so that the instantiation could be fully defined and 
implemented. 

2. Make Secondary ADTs Visible to External Components 

It is desirable for components to be able to reference a type declaration 
(secondary ADT - refer to Section IV.D.3.b) that was made in the specification of 
another component. This is similar to the concept of a user defined type. The difference 
is that with a user defined type, the name of the type component is the user defined type 
and can therefore be accessed directly. This may be a difficult concept to implement 
without having a big effect on processing time. The main reason for this is that there is 
no fast method for searching for secondary ADTs other than to iterate through all 
existing type components to see if the desired secondary ADT is defined there. One 
solution would be to create a separate dictionary of all secondary ADTs which would 
provide for direct access and greatly reduce search time. Referencing secondary ADTs 
is important because it imitates a capability inherent in the Ada language. 

3. Expand Array Component Definition 

The current implementation imposes restrictions on the definitions of Array 
components within a PSDL specification. Array components can be defined by any 
combination of user defined or predefined Ada types. However, for generic definitions, 
either both Array components must be defined by generic parameters, or else neither may 
be defined by generic parameters. Future implementations should remove this 
restriction. 

4. Matching Composite Types 

The current implementation does not go below one level when matching 
composite types. So, for example, if two Arrays are being matched, then their 
components (the first level) will be compared. However, if the element component is 
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itself a composite type (i.e., an Array of Arrays) then the Array components of the Array 
element component (second level) are not checked for a match. Future implementations 
should remove this restriction which will provide more accurate type matching. 

The current implementation provides an algorithm for matching Array 
components down to one level (Ada_Operator_Matching Routines Pkg.a). That same 
algorithm can be utilized for any kind of composite type. The process of creating type 
declarations in the wrapper package has also been developed that allows for the 
predefinition of composite types before they are invoked in an Ada subprogram 
specification or implementation. This may prove to be useful when dealing with 
constrained types. A possible approach might be to specify constrained types as 
composite types with the sub-component(s) providing the necessary constraint 
information. See the following section for an example of this with the String type. 

5. Matching Constrained Types 

If an input parameter of a query component and a software base component is a 
constrained type like Range, the current implementation will validate that they match. 
However, it is possible that the constraint on the software base component input 
parameter Range is 1..50 while the constraint on the query component input parameter 
Range is 1.. 100. In reality, they do not match, nor is the query input parameter even a 
valid subtype. The key problem with going to a deeper level to match these types is that 
currently the information about the Range constraints is only contained in the Ada 
specifications. One possible solution to this would be to allow the Range constraints to 
be declared in the PSDL specification. For example, we could declare "X : Range 
[FROM : 1, TO : 50]" in the software base component PSDL specification. This 
information would not necessarily have to be encoded into the component input and 
output signature but could be handled by a filter that follows the signature matching 
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filter, much like Array matching at the component level is handled by this 
implementation. 

A possibly better approach was alluded to in the previous section. A user defined 
type could be used as a composite type component to provide constraint information. 
Take String for example. It could be specified as 

Input_Parameter : STRING [ SIZE : some_UDT_name] 
where SIZE would define the length of the String. The wrapper package would have 
direct access to this constraint information because it can access 
some_UDT_name_PKG.some_UDT_name. 

G. EXTEND ARRAY MATCHING, GENERIC INSTANTIATION 
VALIDATION AND INTEGRATION TO TYPE COMPONENTS 

Due to time limitations, Array type matching, generic validation, and integration of 
selected software base components was not implemented for type components. These 
capabilities should be included in future implementations. The underlying processes for 
their implementation will be very similar to the processes implemented for operator 
components. Because Array type matching does not deal with generics, that process can 
be incorporated exactly as it is currently implemented. Generic instantiation validation 
will have two extra steps to consider. The first is the mapping of the type component's 
operators. The algorithm for this is already provided in the implementation of a PSDL 
query for type components. The second additional step is that when iterating through all 
possible mapping combinations at the ADT operator level, a failure to find a successful 
match will potentially invalidate mappings found for previous operators and an alternate 
combination for the type component's generic parameters may have to be explored. 
This essentially contains one more level of complexity than does the process for operator 
components. Operator components had to deal with two levels of complexity. A 
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mapping for their generic parameters and a mapping for their non-generic parameters. 
Type components have both of those levels to deal with plus a third; the mapping of the 
type component's generic parameters. Similarly, the integration of a type component 
must be concerned with both this third level of complexity and having the user establish a 
mapping of the type component's operators prior to determining parameter mappings. 

H. IMPROVE SPEED AND EFFICIENCY 

Most of the effort that went into this thesis was to find a way to provide more 
accurate component retrieval. Little time was left to consider optimization. Initial tests 
were performed on a software base loaded with over 1,000 components. These 
components were automatically generated with varying numbers of input, output, and 
generic components. Many components were entered multiple times to force match 
processing on more significant numbers of matching components. One tested retrieval 
returned all 50 possible non-generic component matches from the 1,000 component 
software base in under a minute. Another retrieval designed to extract known generic 
components returned all 50 possible generic component matches in under three minutes. 
It is difficult to categorize these initial and limited results. For example, suppose we 
were looking for components that had four input parameters. Further suppose that of 
the next 5,000 components added to the software base, none will have four input 
parameters (i.e., all will have either more or less than four). In this case, due to the 
partitioning of the search base by the software base schema design, we will see no 
change in the retrieval time of the two test examples above even though they are 
searching a 5,000 component software base versus the original 1,000 component 
software base. More research needs to be done that can quantify retrieval patterns and 
expectations. 
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What is obvious, however, is where the processing bottleneck occurs in the retrieval 
mechanism implemented in this thesis. Signature matching is very fast. The aspect of 
the retrieval mechanism with the biggest payoff if optimized is post-signature filtering. 
This includes Array type matching at the Array component level and generic instantiation 
validation. One reason this is slow may be due to the need to access PSDL 
specifications for each software base component accessed by this filter. It also appears 
that there is unnecessary processing being performed in the generic instantiation 
validation. Currently, when examining all possible instantiation for a particular generic 
parameter, each query component parameter is included in the list of possibilities if it can 
instantiate the generic parameter. However, it may be the case that only each parameter 
type that is available to instantiate the generic parameter need be a part of the list of 
possible instantiations. 
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APPENDIX A - USER DEFINED TYPE EXAMPLE 



Here is an example of a simplified prototype PSDL specification that employs the 
user defined type (UDT) Card_Deck: 

TYPE Card_Deck 
SPECIFICATION 

Card_Deck : Range 

END 

IMPLEMENTATION ADA Card_Deck_Pkg END 

OPERATOR Pick_A_Card 
SPECIFICATION 

INPUT The_In_Card : Card_Deck 
OUTPUT The_Out_Card : Card_Deck 
END 

IMPLEMENTATTON ADA Pick_A_Card_Pkg 

Figure 27 - User Defined Type 

The UDT Card_Deck is referenced by the operator Pick_A_Card. By checking the 
prototype specification for a type named Card_Deck, we see that Card_Deck is defined 
as the Ada type Range. The actual Ada implementation of Card_Deck, stored in 
Card_Deck_Pkg would look like this: 
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package Card_Deck_Pkg is 
type Card_Deck is Range 1..52; 

end Card_Deck_Pkg; 

Figure 28 - Ada Implementation of UDT 
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APPENDIX B - PSDL SPECIFICATION EXAMPLES 



Many of the PSDL specifications in this section were written for Ada components 
developed by Grady Booch [Booc87a]. These PSDL specifications are not complete 
and only contain the information necessary to illustrate how to formulate PSDL 
specifications for software reuse. The examples in this appendix are designed to 
illustrate the assumptions and requirements described in Section IV.D.3. 



A. PROTOTYPE PSDL SPECIFICATION 

A prototype specification covers the entire system being prototyped. Thus it may 
have several types and operators. Here is an example of a prototype PSDL specification: 



TYPE Ring 




SPECIFICATION 




Ring : PRIVATE, 




Direction : PRIVATE 




OPERATOR Rotate 




SPECIFICATION 




INPUT The_Direction 


: Direction, 


The_In_Ring 


: Ring 


OUTPUT The_Out_Ring 


: Ring 


END 




END 




OPERATOR Sort 




SPECIFICATION 




INPUT The_In_List : 


List_type, 


OUTPUT The_Out_List : 


List_type 


END 





Figure 29 - Partial Prototype PSDL Specification 



Figure 29 depicts a partial prototype PSDL specification with just one type and one 
operator portrayed. It is used in conjunction with query components only. As explained 
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earlier, the prototype PSDL specification is important for all PSDL queries because the 
prototype contains all user defined types referenced by the PSDL query. Software base 
components are either types or operators and their corresponding PSDL specification is 
limited to a single type or operator, never an entire prototype. In Figure 29 the user 
defined type List_type is referenced. Although its definition is not provided, it would be 
defined as a type. Note that no generics are used because they are not allowed in query 
components. Note also that the primary ADT Ring is referenced by the ADT operator 
Rotate in its input and output parameters. The secondary ADT Direction is also 
referenced by an ADT operator input parameter. While other operator PSDL 
specifications within the prototype could validly reference Ring, they cannot reference 
the secondary ADT Direction because it is not visible outside the type Ring in this 
implementation. Because these secondary ADTs correspond to type declarations made 
in an Ada specification, ultimately they should become visible to any object that has 
access to the type component in which they are declared. 

Here is another partially developed prototype PSDL specification: 



TYPE Index 
SPECIFICATION 

Index : RANGE 

END 

OPERATOR Bubble_Sort 
SPECIFICATION 






INPUT The_In_Array 


: ARRAY [ ARRAY_ELEMENT : 


: CHARACTER, 




ARRAY_INDEX 


: Index] 


OUTPUT The_Out_Array : 


: ARRAY [ ARRAY_ELEMENT : 


CHARACTER, 


END 


ARRAYJNDEX 


: Index] 



Figure 30 - Partial Prototype PSDL Specification 
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Once again note that because it corresponds to query component PSDL specifications it 
contains no generics. Also note the use of the user defined type Index by the operator 
Bubble_Sort and the use of the mandatory identifiers ARRAY_ELEMENT and 
ARRAY_INDEX when specifying array components. One problem with trying to find a 
match for Bubble_Sort is that a generic component that could perform the required 
sorting normally requires a procedure passed in as one of its generic parameters that 
provides ordering information for the elements to be sorted. Because generic procedures 
cannot be handled by CAPS at this time, this limits the kinds of components available in 
the CAPS software base. 

B. SOFTWARE BASE COMPONENT PSDL SPECIFICATION 

We will look at two kinds of PSDL specifications for a software base component. 
One for a type component and one for an operator component. Because we are looking 
at software base components, generics can be included. Here is the PSDL specification 
for a software base type component: 
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TYPE Ring 




SPECIFICATION 




GENERIC Item : PRIVATE 




Ring : PRIVATE, 




Direction : PRIVATE 




OPERATOR Insert 




SPECIFICATION 




INPUT Thejtem 


: Item, 


The_In_Ring 


: Ring 


OUTPUT The_Out_Ring : 


Ring 


END 




OPERATOR Rotate 




SPECIFICATION 




INPUT The_In_Ring 


: Ring, 


The_Direction 


: Direction 


OUTPUT The_Out_Ring 


: Ring 


END 





Figure 31 - PSDL Specification for Type Component 

Note how Figure 31 is different from Figure 29 for the type Ring. Because it is a 
software base component. Figure 28 can use a generic type. Also note that the generic 
type as well as the ADTs are defined as Ada types. It would be illegal for either to try 
and reference another generic type or a user defined type. Here is the PSDL 
specification for a software base operator component: 
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OPERATOR Bubble_Sort 
SPECIFICATION 

GENERIC Array_T ype : 


ARRAY [ A RRA Y_ELE MENT 


: PRIVATE, 




ARRAY_INDEX 


: DISCRETE] 


INPUT The_In_Array 


: Array_Type 




OUTPUT The_Out_Array 


: Array_Type 




END 







Figure 32 - PSDL Specification for Operator Component 



We see in Figure 32 that the generic Array_Type defines itself and its component 
identifiers (the mandatory ARRAY_ELEMENT and ARRAY_INDEX) as Ada types 
which is the only option for a generic. Figure 32 also shows the operator inputs and 
outputs referencing the specification's generic. Note that for both Figure 31 and Figure 
32, no unrecognized types are referenced (i.e., no references are made to user defined 
types that are declared and defined externally). There are two reasons for this. First, 
software base components do not have a parent prototype PSDL specification in which 
those external references could be looked up and resolved. Second, and more 
importantly, it is a limitation of this implementation. Future implementations should 
allow input and output parameters of a software base component to be defined in terms 
of types already defined in the software base. 
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APPENDIX C - WRAPPER PACKAGE EXAMPLES 



This appendix provides examples of a query component prototype PSDL 
specification, query component operator PSDL specification, two software base 
operator component PSDL specifications (one generic, one non-generic), and the 
wrapper packages generated by integrating the software base components into the user's 
prototype. The following figure describes the query component prototype PSDL 
specification: 



TYPE Index 
SPECIFICATION 
Index : RANGE 
END 

IMPLEMENTATION ADA Index_PKG END 

TYPE List 
SPECIFICATION 

List : ARRAY [ARRAY_ELEMENT : CHARACTER, 
ARRAY_INDEX : INTEGER] 

END 

IMPLEMENTATION ADA List_PKG END 

OPERATOR QC_Op 
SPECIFICATION 
INPUT 

QC_Inl : NATURAL, 

QC_In2 : ARRAY [ARRAY_ELEMENT : BOOLEAN, 
ARRAY_ELEMENT : Index], 

QC_In3 : Index 
OUTPUT 

QC_Outl : List, 

QC_Out2 : NATURAL 

END 

IMPLEMENTATION ADA QC_Op_PKG END 



Figure 33 - Query Prototype PSDL Specification 
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The following figure describes the query operator component PSDL specification: 



OPERATOR QC_Op 
SPECIFICATION 
INPUT 

QC_Inl : NATURAL, 

QC_In2 : ARRAY [ARRAY_ELEMENT : BOOLEAN, 

ARRAY_ENDEX : Index], 

QC_In3 : Index 
OUTPUT 

QC_Outl : List, 

QC_Out2 : NATURAL 

END 

IMPLEMENTATION ADA QC_Op_PKG END 

Figure 34 - Query Operator Component PSDL Specification 

The following figure describes a generic software base component that matches 
Figure 34: 
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OPERATOR SBC_Op 
SPECIFICATION 



GENERIC SBC_Gen_Param 1 : PRIVATE, 

SBC_Gen_Param2 : PRIVATE, 

SBC_Gen_Param3 : ARRAY [ARRAY_ELEMENT : PRIVATE, 

ARRAYJNDEX : DISCRETE] 



INPUT 



SBC_Inl : SBC_Gen_Param3, 

SBC_In2 : NATURAL, 

SBC_In3 : S B C_Gen_Param2 
OUTPUT 

SBC_Outl : SBC_Gen_Paraml, 

SBC_Out2 : ARRAY [ARRAY_ELEMENT : CHARACTER, 

A RR A Y_IND EX : INTEGER], 
SBC_Out3 : SBC_Gen_Param3, 

SBC_Out4 : POSITIVE, 

SBC_Out5 : ARRAY [ARRAY_ELEMENT : INTEGER, 

ARRAY_INDEX : INTEGER] 



END 

IMPLEMENTATION ADA SBC_Op_SB END 



Figure 35 - Software Base Generic Component PSDL Specification 

Here is an example of a parameter mapping that matches all query PSDL 
specification parameters to the software base component PSDL specification parameters 
and additionally defines the generic instantiations: 
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QCJnl -» 
QC_In2 -» 
QC_In3 -» 
QC_Outl — > 
QC_0ut2 — ^ 



SBC_In2 

SBC_Inl — > instantiated SBC_Gen_Param3 
SBC_In3 -» instantiated SBC_Gen_Param2 
SBC_0ut2 

SBC_Outl — > instantiated SBC_Gen_Paraml 



Figure 36 - Parameter Mapping 



The following figure lists the Ada source code for the wrapper package generated 
by the above parameter mapping to integrate the selected software base component into 
the user prototype: 



with SBC_Op_SB; 
use SBC_Op_SB; 
with Index_PKG; 
with List_PKG; 

package QC_Op_PKG is 

type QC_In2_ARRAY is array (Index_PKG.Index) of BOOLEAN; 

package TMP_QC_Op_PKG is new SBC_Op_SB( 
SBC_Gen_Paraml => NATURAL, 

SBC_Gen_Param2 => Index_PKG. Index, 

S BC_Gen_Param3 => QC_In2_ARRAY); 

procedure QC_Op( 



QCJnl 


: in NATURAL; 


QCJn2 


: in QCJn2_ARRAY; 


QCJn3 


: in Index_PKG. Index; 


QC.Outl 


: out List_PKG.List; 


QC_Out2 


: out NATURAL); 


end QC_Op_PKG; 





Figure 37 - Generic Software Base Component Wrapper Package 
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First, let us look at the with statements. The software base component package 
SBC_Op_SB is referenced ("_SB" is a naming convention for software base 
components). So too are the user defined type packages List_PKG and Index_PKG that 
were defined in the user prototype PSDL specification. Because the integrated software 
base component is generic, it must be instantiated. The prefix "TMP_" and the suffix 
"_PKG" are attached to the query operator name QC_Op to create the name of the 
instantiated package. Looking at the code in which the necessary generic parameter 
instantiations are made we see examples of three different kinds of generic instantiations. 
The instantiation of SBC_Gen_Paraml is accomplished with the predefined Ada type 
NATURAL. The instantiation of SBC_Gen_Param2 is accomplished with the user 
defined type List. And the instantiation of SBC_Gen_Param3 is accomplished by using 
an Array type that was predefined in the wrapper package. Looking at the subprogram 
specification for QC_Op we find the same three examples present for the type definitions 
of the parameters. 

The wrapper package body is generated after the wrapper package. The following 
figure lists the Ada source code for the wrapper package body generated to integrate the 
selected software base component into the user prototype: 
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PACKAGE BODY 



package body QC_Op_PKG is 



procedure QC_Op( 



QC_In 1 

QC_In2 

QC_In3 

QC_Outl 

QC_Out2 



in NATURAL; 
in QC_In2_ARRAY; 
in Index_PKG.Index; 
: out List_PKG.List; 

: out NATURAL) is 



— dummy output parameters 

type SBC_Out5_ARRAY is array (INTEGER) of INTEGER; 
SBC_Out3_DUMMY ; QC_In2_ARRAY; 
SBC_Out4_DUMMY : POSITIVE; 

SBC_Out5_DUMMY : SBC_Out5_ARRAY; 



TM P_QC_Op_PKG . S B C_Op( 
QC_In2, 

QC_Inl, 

QC_In3, 

QC_Out2, 

QC_Outl, 

SBC_Out3_DUMMY, 

SBC_Out4_DUMMY, 

SBC_Out5_DUMMY); 

end QC_Op; 

end QC_Op_PKG; 



Figure 38 - Generic Software Base Component Wrapper Package Body 

In the wrapper package body we see a subprogram implementation for QC_Op 
nearly identical to the subprogram specification defined in Figure 37. Next, variables for 
any extra (i.e., unused) software base output parameters must be defined because they 
will be referenced in the procedure call to the software base component operator. We 



begin 
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see from the parameter mapping of Figure 36 that our three extra output parameters are 
SBC_Out3, SBC_Out4, and SBC_Out5. Each variable identifier is created by appending 
the suffix "_DUMMY" to the name of the extra output parameter. Two points need to 
be explained for defining extra software base component output parameters. First, for an 
output parameter that is not defined by a predefined Ada type (i.e.. Array which must 
have its components defined), a type declaration must precede the variable definitions. - 
This is the case for SBC_Out5. Second, in some cases an output parameter may not 
have been used, but it was defined by a generic parameter that was instantiated. Under 
these circumstances the type of the output parameter becomes the type that the 
corresponding generic parameter was instantiated with. That is the case for SBC_Out3. 

Finally, a procedure call must be made to the software base operator component. In 
doing so, the new package TMP_QC_Op_PKG that defines the instantiation of the 
generic software base component must be referenced. Notice the ordering of the 
parameters in the call to SBC_Op. It follows the ordering of input and output 
parameters defined by the software base component PSDL specification of Figure 35 
with the actual parameters (except for unused software base component output 
parameters) being the corresponding query component parameters defined by the 
parameter mapping in Figure 36. 

Now that we have looked at an example of integrating a generic software base 
component that matched a query component we will look at an example of integrating a 
non-generic software base component. The query component remains the same one 
described by Figure 34 and has the same prototype PSDL specification of Figure 33. 
Here is a description of the non-generic software base component PSDL specification: 
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OPERATOR SBC_Op 
SPECIFICATION 



INPUT 

SBC_Inl : ARRAY [ARRAY_ELEMENT : ENUMERATION, 

ARRAY.INDEX : DISCRETE], 
SBC_In2 : INTEGER, 

SBC_In3 : INTEGER 
OUTPUT 

SBC.Outl : POSITIVE, 

SBC_Out2 : ARRAY [ARRAY.ELEMENT : CHARACTER, 

ARRAY.INDEX : POSITIVE], 
SBC_Out3 : INTEGER, 

SBC_Out4 : ARRAY [ARRAY.ELEMENT : INTEGER, 

ARRAY.INDEX : INTEGER] 

END 

IMPLEMENTATION ADA SBC.Op.SB END 



Figure 39 - Software Base Non-Generic Component PSDL Specification 

Here is an example of a parameter mapping that matches all query PSDL 
specification parameters to the software base component PSDL specification parameters: 
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The following figure lists the Ada source code for the wrapper package generated 
by the above parameter mapping to integrate the selected software base component into 
the user prototype: 



with SBC_Op_SB; 
use SBC_Op_SB; 
with Index_PKG; 
with List_PKG; 

package QC_Op_PKG is 

type QC_In2_ARRAY is array (Index_PKG.Index) of BOOLEAN; 
procedure QC_Op( 



QC_Inl 


: in NATURAL; 


QC_In2 


: in QC_In2_ARRAY; 


QC_In3 


: in Index_PKG. Index; 


QC_Outl 


: out List_PKG.List; 


QC_Out2 


: out NATURAL); 


end QC_Op_PKG; 





Figure 41 - Non-Generic Software Base Component Wrapper Package 

The wrapper package body is generated after the wrapper package. The following 
figure lists the Ada source code for the wrapper package body generated to integrate the 
selected software base component into the user prototype: 
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PACKAGE BODY 



package body QC_Op_PKG is 



procedure QC_Op( 




QC_Inl 


: in NATURAL; 


QC_In2 


: in QC_In2_ARRAY; 


QC_In3 


: in Index_PKG. Index; 


QC_Outl 


: out List_PKG.List; 


QC_Out2 


: out NATURAL) is 



— dummy output parameters 

type SBC_Out4_ARRAY is array (INTEGER) of INTEGER; 
SBC_Out3_DUMMY : INTEGER; 

SBC_Out4_DUMMY : SBC_Out4_ARRAY; 

begin 

S B C_Op_SB . S B C_Op( 

QC_In2, 

QC_In3, 

QC_InI, 

QC_Out2, 

QC_Outl, 

SBC_Out3_DUMMY, 

SBC_Out4_DUMMY); 

end QC_Op; 

end QC_Op_PKG; 



Figure 42 - Non-Generic Software Base Component Wrapper Package 
Body 

The primary difference between (Figures 37 and 38) and (Figures 41 and 42) is that in 
the two figures immediately above no generic instantiation takes place and the call to the 
software base operator is made by referencing the software base component package 
SBC_Op_SB. 
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APPENDIX D - ADA SOURCE CODE 



The code below is listed by program in alphabetical order. It includes Ada code 
developed to encode signatures, perform array component level matching, generic 
instantiation validation, type matching, and component transformation. 



— Filename / Ada_Operator_Matching_Routines_Pkg.a 

— Date / 12 Aug 93 

— Author / Scott Dolgoff 

— System / Solbourne 

— Compiler / Verdix Ada 

— Description / This package provides two kinds of matching routines 

/ that can be used by Operators. The first and simpler 
/ routine determines whether the Arrays of two Operators 
/ match at the array component level. The second routine 
/ determines, given a software base component with generics, 
/ whether an instantiation is possible with the specified 
/ query component. 



with PARAMETER_UST_PKG; 
use PARAMETER_UST_PKG; 



package OPERA TOR_MATCH_ROUTINES is 



— This procedure examines the arrays of a query component and a 

— software base component and determines whether each query component 

— array can be matched against a distinct array in the sofU\’are 

— base component. If so, NO JAATCH is returned as FALSE. If not, then 

— NO MATCH is returned as TRUE. 

procedure MATCH_ARRAYS(QC_IN_PARAM_LIST : in PARAMETERS; 

QC_OUT_PARAM_UST : in PARAMETERS; 

SB C_IN_P ARAM_LIST : in PARAMETERS; 

SB C_OUT_P ARAM_LIST : in PARAMETERS; 

NO_M ATCH : in out B OOLE AN); 



— This procedure attempts to find a valid mapping between a 

— query component and a generic software base component. The 

— valid mapping includes finding a possible instantiation of 
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-- the generic that leads to a valid mapping between parameters. 

— If a valid mapping is found, NO_MATCH is returned as TRUE. If 

— not, then NO_MATCH is returned as FALSE. 

procedure FIND JN S T ANTI ATION(QC_lN_P AR AM_LI ST : in out PARAMETERS; 

QC_OUT_PARAM JJST : in out PARAMETERS; 
SBCJN_PARAMJJST ; in out PARAMETERS; 
SBC_OUT_PARAM_LIST : in out PARAMETERS; 
SBCJ3EN_PARAMJJST : in out PARAMETERS; 
NOJ4ATCH : in out BOOLEAN); 



end OPERATOR JvlATCH_ROUTINES; 



with TEXTJO, AD A_RECOGNIZED_TYPES_PKG , PARAMETER JViAPPING.PKG, PSDL_ID_PKG; 
use TEXTJO, AD A_RECOGNIZED_TYPES_PKG , PARAMETER_MAPPING_PKG, PSDLJD_PKG; 

package body OPERATOR_MATCH_ROUTINES is 



- create structures to build a dynamic array 

type POTENTIAL_MATCH_LIST(LIST_SIZE : NATURAL); 

type POTENTIAL_MATCH_PTR is access POTENTlAL_MATCH_LIST; 

type ONE_TO_ONE_MAP is array (NATURAL range o) of 

BOOLEAN; 

type PARAMS is array(NATURAL range o) of 

PARAMETERS; 

type POTENTI AL_MATCH_LIST(LIST_SIZE : NATURAL) is record 
SIZE : NATURAL := LIST.SIZE; 

— Component A is trying to map to component B. 

— each array cell corresponds to one of a component B's 

— parameters (input, output, or combined). This array is 

— cycled through when a component A parameter attempts to find 

— all parameters in component B that it can match. 

P_UST : PARAMS(1 .. USTJSIZE) := (others => null); 

-- each array cell corresponds to one of component B’s parameters. 

— When one of these is mapped to by component A, the cell is 

— set to TRUE to indicate that no other component A parameter 

— can now map to it. 

IS_MAPPED : ONE_TO_ONE_MAP(l .. LIST.SIZE) := (others => FALSE); 
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end record; 



type VAUD_MATCH_UST; 

type VALID JvlATCH_LIST_PTR is access V AUD_M ATCH_LIST ; 

-- Again, component A is trying to map to component B. 

- this structure is used to build a linked list of all 

- component B's parameters that match a particular component A. 

- The reason THE_PARAMETER is an integer is because the integer 

- value represents the index position of the component B 
-- parameter that is stored in the array 

- ONE_T 0_0NE_MAP. 

type VALID_MATCH_LIST is record 
THE_PARA METER : INTEGER; 

NEXT : VAUD_MATCH_UST_PTR; 
end record; 



type MAPPING_LIST(LIST_SIZE : NATURAL); 
type MAPPING_LIST_PTR is access MAPPINGJJST; 

type LI S T_ ENTRIES is array (NATURAL range o) of 

VAUD_MATCH_UST_PTR; 



type MAPPING JJST(UST_SIZE : NATURAL) is record 

SIZE : NATURAL := LIST_SIZE; 

-- Again, component A is trying to map to component B. 

- each array cell corresponds to one of the component A 's 

- parameters. The linked list attached to each array 

- cell corresponds to all the component B parameters 

- that match the component A parameter represented by the 

- array cell. 

PJJST ” : LIST_ENTRIES(1 .. LIST_SEE) := (others => null); 

end record; 



type MATCH.SWITCH is (INPUT.MATCH, OUTPUTJ4ATCH); 

MATCH_FOUND : BOOLEAN := FALSE; 



ROUTINES COMMON TO BOTH ARRAY MATCHING AND 
FINDING A VALID GENERIC INSTANTIATION 
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— The "tree traversal" treats the linked lists of matched software 

— base component parameters as a tree rooted at the first 

— query component parameter. Conceptually, the tree is a combinatoric 

— explosion of all possible mappings of one query parameter to 

— a valid software base parameter (so that no software base component 
-- parameter is used more than once). The traversal does not explore 

— all paths. If a node is reached that selects a software base component 

— parameter that was already selected, no lower level nodes on that 

— path need to be visited. Also, the tree is never physically built, 

— just logically traversed. This helps alleviate potential memory 

-- problems. Backtracking occurs when a query parameter (tree level) 

— is reached that cannot find an unused software base parameter from 

— its linked list of valid mappings. In the worst case it is 

— estimated that the number of paths to be checked is N factorial 

— where N is the total number of software base parameters. 

procedure TREE_TRAVERSAL(QC_LIST : in M A PPIN G _LI S T_PTR ; 

SBC_PARAM_USAGE : in out POTENTIAL.MATCHJTR; 
LEVEL : in INTEGER) is 

— set a pointer to the current software base parameter for the 

— current query parameter 

SBC_PTR : VAUD_MATCH_UST_PTR := QC_LIST.P_UST(LEVEL); 
begin 



while ((SBC_PTR /= null) and (not MATCH_FOUND)) loop 

if (not SBC_PARAM_USAGE.IS_MAPPED(SBC_PTR.THE_PARAMETER)) then 
-- query parameter maps to software base parameter that has not 
- been claimed (mapped to) yet. 

SBC_PARAM_USAGE.IS_MAPPED((SBC_PTR.THE_PARAMETER)) := TRUE; 
if (LEVEL < QC_UST.SIZE) then -- haven't reached bottom 

TREE_TRAVERSAL(QC_UST, SBC_PARAM_USAGE, LEVEL + 1); 

— backtracked to this point, now will try next sbc parameter 

— in the list so must reset current sbc parameter mapped to 

— by this query operator to FALSE 

SBC_PARAM_US AGE.IS_MAPPED((SBC_PTR.THE_PARAMETER)) := FALSE; 
SBC_PTR := SBC_PTR.NEXT; 
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else 



MATCH_FOUND := TRUE; 
end if; 



else 

- try the next query component parameter in the list 

SBC.PTR := SBC_PTR .NEXT ; 

end if; 
end loop; 

end TREE_TR AVER SAL; 



ROUTINES FOR ARRAY MATCHING 



- Step through parameter list and return the total number of 

- String and Array parameter types. 

function G ET_S TRIN G_ AN D_ A R R A Y_CO U NT ( P ARAM_LI ST : PARAMETERS) return INTEGER is 
COUNT : INTEGER :=0; 

LIST_PTR : PARAMETERS := PARAM_LIST; 

begin 

while LIST_PTR /= null loop 

if ((USTJTR.THE_TYPE.S = ARRAYJTYPE) or (LIST_PTR.THE_TYPE.S = 

STRIN G_TYPE)) then 

COUNT := COUNT + 1; 
end if; 

UST_PTR := LIST_PTR .NEXT ; 
end loop; 
return COUNT; 



140 



end GET_STRING_AND_ARRA Y_COUNT ; 



— initialize the dynamic arrays . Set up the list of all 

— software base component Array and String parameters. 

procedure INTITALIZE_SBC_PARAM_UST(CONTAINER : in out POTENTIAL_M ATC H_PTR ; 

PARAM.UST : in PARAMETERS) is 

NUM_OF_ARRAYS : INTEGER; 
begin 

— build dynamic arrays to store String and Array parameters 
NUM_OF_ ARRAY S := GET_STRING_AND_ARRAY_COUNT(PARAM_LIST); 
if NUM_OF_ ARRAYS > 0 then 

CONTAINER := new POTENTLAL_MATCH_LIST(NUM_OF_ARRAYS); 
end if; 

end INITIALIZE_SBC_PARAM_UST; 



— load the software base component dynamic arrays with 
-- their parameter list of Array and String types 

procedure LOAD_SBC_PARAMETERS(CONTAINER : in out POTENTLAL_MATCH_PTR; 

PARAM_LIST : in PARAMETERS) is 

PTR : PARAMETERS := PARAM_LIST; 

NUM_OF_ ARRAY S : INTEGER; 

begin 



— load the dynamic arrays 
if CONTAINER /= null then 
NUM_OF_ARRA Y S := 1; 

while ((PTR /= null) and (NUM_OF_ARRAYS <= CONTAINER.SRE)) loop 

if ((PTR.THE_TYPE.S = ARRAY_TYPE) or (PTR.THE_TYPE.S = 
STRING_TYPE)) then 

CONT AINER .P_LIST(NUM_OF_ ARRAY S) := PTR; 
end if; 

NUM_OF_ ARRAYS ;= NUM_OF_ ARRAYS + 1; 

PTR ;= PTR .NEXT; 
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end loop; 
end if; 

end LOAD_S B C_PARAM E 1 bRS ; 



— initialize the dynamic arrays. Becomes array of query 

- component parameters. Each array cell has an attached list 

— of all software base component parameters that match the 

- particular query component parameter represented by the 

— array cell. Initially the list is null. 

procedure rNITIALiZE_QC_MATCH_LIST(CONTAINER : in out MAPPING_LIST_PTR; 

PARAM_LIST : in PARAMETERS) is 

NUM_OF_ ARRAY S : INTEGER; 
begin 

- build dynamic arrays to store String and Array parameters 

NUM_OF_ARRAYS := GET_STRING_AND_ARRAY_COUNT(PARAM_LIST); 
if NUM_OF_ARRA Y S > 0 then 

CONTAINER := new MAPPING JJST(NUM_OF_ARRAYS); 
end if; 

end INITIALIZE_QC_MATCH_LIST; 



-- Loads the query component parameters ( not actual 

— parameters, but positional location in an array) and their 

— corresponding list of matched software base component 

— parameters. If a query component parameter has no corresponding 

— matches amongst the software base component parameters 

— then no overall match is possible and the process for this particular 

— software base component can be terminated. 

procedure LOAD_QC_PARAMETERS(CONTAINER : in out MAPPING_LIST_PTR; 

QC_PA RAM_LIST : in PARAMETERS; 

SBCJJST : in POTENT! AL_MATCH_PTR; 
TYPE_OF_MATCH ; in MATCH.SWITCH; 
NO_MATCH_POSSIBLE ; in out BOOLEAN) is 

QC_PTR : PARAMETERS := QC_PARAM_LIST; 

SBC_PTR : POTENTIAL_MATCH_PTR := SBC.LIST; 

PTR : VALID_MATCH_LIST_PTR; 

NUM_OF_ARRA Y S ; INTEGER; 

MATCH ; BOOLEAN; 
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begin 



NO_MATCH_POSSIBLE := FALSE, 
if CONTAINER /= null then 

- go through qc parameters 

NUM_OF_ARRA Y S := 1; 

while ((QC_PTR /= null) and (NUM_OF_ ARRAYS <= CONTAINER.SIZE) and 
(not NO_MATCH_POSSIBLE)) loop 

if ((QC_PTR.THE_TYPE.S = ARRAY.TYPE) or (QC_PTR.THE_TYPE.S = 
STRING_TYPE) ) then 



PTR := null; 

NO_MATCH_POSSIBLE := TRUE; 

for index in i .. sbc_ptr.size loop — go through sbc parameters 

if ((SBC_PTR.P_LIST(INDEX).THE_TYPE.S = ARRAY.TYPE) or 
(SBC_PTR.P_LIST(INDEX).THE_TYPE.S = STRING.TYPE)) then 

- see if the two parameters match 

if TYPE_OF_M ATCH = INPUT.MATCH then 

MATCH := INPUT_PARAMETER_TYPES_MAP_OK(QC_PTR, 
SBC_PTR.P_UST(INDEX)); 

else 

MATCH := OUTPUT_PARAMETER_TYPES_MAP_OK(QC_PTR, 
SBC_PTR.P_LIST(INDEX)); 

end if; 

if MATCH then 

NO_MATCH_POSSIBLE := FALSE; 

-- add matched software base component parameter to 

— linked list 

if (CONT AINER.P_LIST (NUM_OF_ ARRAYS) = null) then 

— initialize list 

PTR := new VAUD_MATCH_UST; 

PTR.THE_PARAMETER := INDEX; 

PTR.NEXT ;= null; 

CONTAINER.P_UST(NUM_OF_ARRAYS) := PTR; 



else 



-- append to list 



PTR.NEXT := new VALID_MATCH_LIST; 
PTR := PTR.NEXT; 
PTR.THE_PARAMETER := INDEX; 
PTR.NEXT := null, 
end if; 
end if; 
end if; 
end loop; 
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NUM_OF_ARR A Y S := NUM_OF_ARRAYS + 1; 
end if; 

QC.PTR := QC_PTR.NEXT; 

end loop; 
end if; 

end LOAD_QC_PARAMETERS; 



-- This procedure examines the arrays of a query component and a 

— software base component and determines whether each query component 

- array can be matched against a distinct array in the software 

- base component. If so, NO_MATCH is returned as FALSE. If not, then 

— NO_MATCH is returned as TRUE. 

procedure MATCH_ARRAYS(QC_IN_PARAM_LIST : in PARAMETERS; 

QC_OUT_PARAM_UST : in PARAMETERS; 
SBC_IN_PARAM_UST : in PARAMETERS; 
SBC_OUT_PARAM_UST : in PARAMETERS; 

NO.MATCH : in out BOOLEAN) is 



QC_IN, QC_OUT : MAPPING_LIST_PTR := null; 
SBCJN, SBC.OUT : POTENTLAL.MATCH.PTR := null; 



begin 

MATCH.FOUND ;= TRUE; 



-- build dynamic arrays to store String and Array parameters 
IMTIAUZEJ2C_MATCH_UST(QCJN, QC_IN_PARAM_UST); 
[NlTIAiiZE_QC_MATCH_LIST(QC_OUT, QC_OUT_PARAM_LIST); 
INrnAUZE_SBC_PARAM_UST(SBCJN, SBC_IN_PARAM_UST); 
INlTIAUZE_SBC_PARAM_UST(SBC_OUT,SBC_OUT_PARAM_UST); 

- store all software base component Array and String 

- parameters in list 

LOAD_SBC_PARAMETERS(SBC_IN, SBC_IN_PARAM_UST); 
LOAD_SBC_PARAMETERS(SBC_OUT, SBC_OUT_PARAM_UST); 

- store all query component Array and String parameters in 

- a list (not the actual values, just their representation by 

- a list index position) and to each list index position, attach 
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-- a linked list of all software base component Array and String 

- parameters that match the query component parameter represented 

— by that list index position. 

LOAD_QC_PARAMETERS(QC_IN, QC_IN_PARAM_LIST. SBCJN, INPUT.MATCH, NO_MATCH); 

if not NO_MATCH then -- all query component Array and String input 

— parameters have at least one possible mapping 

LOAD_QC_PARAMETERS(QC_OUT, QC_OUT_PARAM_UST, SBC_OUT, OUTPUT_MATCH, 
NO_MATCH); 

if not no_match then -- all query component Array and String output 

- parameters have at least one possible mapping 

if (QCJN /= null) then 

-- search for solution that provides valid mapping for entire 

- set of query component Array and String input parameters 

MATCH_FOUND := FALSE; 

TREE_TRAVERSAL(QC_IN, SBCJN, 1); 

if MATCH_FOUND then 

if (QC_OUT /= null) then 

— search for solution that provides valid mapping for entire 

- set of query component Array and String output parameters 

MATCH JOUND := FALSE; 

TREE_TRAVERSAL(QC_OUT, SBC_OUT, 1); 
end if; 
end if; 
end if; 



else 



MATCH.FOUND := FALSE; 
end if; 

else 

MATCH_FOUND := FALSE; 
end if; 

if MATCH JFOUND then 
NO.MATCH ;= FALSE; 
else 

NCLMATCH := TRUE; 
end if; 

end MATCH_ARRAYS; 
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ROUTINES FOR 

FINDING A VALID GENERIC INSTANTIATION 



— Step through parameter list and return the total number of 
-- parameter types. 

function GET_PARAMETER_COUNT(PARAM_UST : PARAMETERS) return INTEGER is 
COUNT : INTEGER := 0; 

UST_PTR : PARAMETERS := PARAMJJST; 

begin 

while LIST_PTR /= null loop 
COUNT:= COUNT + 1; 

LIST.PTR := LIST.PTR.NEXT; 
end loop; 
return COUNT; 

end GET_PARAMETER_COUNT; 



Routines Particular to the Process — 

of Mapping a Query Component to a — 

Software Base Component Once the --- 
Generic Instantiation has been 
Resolved. 
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-- initialize the dynamic arrays. Set up the list of all 
— software base component parameters. 

procedure INTT2_SBC JARAM JJST(CONTAINER : in out POTENTIAL__MATCH_PTR; 

PARAMJJST : in PARAMETERS) is 



NUM : INTEGER; 



begin 



— build dynamic arrays to store parameters 
NUM := GET_PARAMETER_COUNT(PARAM_UST); 
if NUM > 0 then 

CONTAINER := new POTENTIAL_MATCH_UST(NUM); 
end if; 

end INIT2_SBC_PARAM JJST; 



— load the software base component dynamic arrays with 

— their parameter list of types 

procedure LX)AD2_SBC_PARAMETERS(CONTAINER : in out POTENTIAL_MATCH_PTR; 

PARAMJJST : in PARAMETERS) is 

PTR : PARAMETERS := PARAMJJST; 

NUM : INTEGER; 

begin 

— load the dynamic arrays 

if CONTAINER /= null then 
NUM := 1; 

while ((PTR /= null) and (NUM <= CONTAINER. SIZE)) loop 

CONTAINER.P_LIST(NUM) := PTR; 

NUM := NUM + 1; 

PTR ;= PTR .NEXT; 

end loop; 
end if; 

end LOAD2_SBC_PARAMETERS; 



-- initialize the dynamic arrays. Becomes array of query 
- component parameters. Each array cell has an attached list 
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— of all software base component parameters that match the 

— particular query component parameter represented by the 

— array cell. Initially the list is null. 

procedure INTT2_QC_MATCH_LIST(CONTAINER : in out MAPPING_LIST_PTR; 

PARAM.LIST : in PARAMETERS) is 



NUM : INTEGER; 



begin 



-- build dynamic arrays to store parameters 
NUM := GET_PARAMETER_COUNT(PARAM_LIST); 
if NUM > 0 then 

CONTAINER := new MAPPING_UST(NUM); 
end if; 



end INIT2_QC_MATCH_LIST; 



- Loads the query component parameters (not actual 

- parameters, but positional location in an array ) and their 

- corresponding list of matched software base component 

- parameters. If a query component parameter has no corresponding 

- matches amongst the software base component parameters 

- then no overall match is possible and the process for this particular 

- software base component can be terminated. It is important to 

-- check and see if the software base component parameter is defined 

- by a generic. If it is, then when matching it with the query 

- component parameter, use the generic instantiation value for the 

- software base parameter. 

procedure LOAD2_QC_PARAMETERS(CONTAINER : in out MAPPING_LIST_PTR; 

QC_PARAM_LIST : in PARAMETERS; 

SBC_LIST : in POTENTIAL_MATCH_PTR; 
TYPE_OF_MATCH : in MATCH.SWITCH; 
NO_MATCH_POSSIBLE : in out BOOLEAN) is 

QC_PTR : PARAMETERS := QC_PARAM_UST; 

SBC.PTR : POTENTIAL_MATC H_PTR := SBC.LIST; 

PTR : VALID_MATCH_UST_PTR; 

NUM : INTEGER; 

MATCH : BOOLEAN; 



begin 



NO_MATCH_POSSIBLE := FALSE; 
if CONTAINER /= null then 

-- go through qc parameters 
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NUM := 1; 

while ((QC_PTR /= null) and (NUM <= CONTAINER. SIZE) and 
(not NO_M ATCH JPOSSEB LE)) loop 



PTR := null; 

NO_MATCH_POSSIBLE := TRUE; 

for index in l .. SBC.FTR.SIZE loop — go through sbc parameters 

- see if the two parameters match 

if TYPE_OF_MATCH = INPUT_MATCH then 

if SBC_PTR.P_LIST(INDEX).DEFINED3 Y_GENERIC_TYPE then 

- need to use the instantiated value 

MATCH := INPUT_P ARAMETER_.TYPES_MAP_OK(QC_PTR , 
SBC_PTR.P_UST(INDEX).GENERIC_LINK.MAPPING); 

else 

MATCH := INPUT_PARAMETER_TYPES_MAP_OK(QC_PTR t 
SB C_PTR.P_LIST(INDEX)); 

end if; 

else — output parameter match 

if SBC_PTR.P_LIST(INDEX).DEFINED_BY_GENERIC_TYPE then 

- need to use the instantiated value 

MATCH := OUTPUT_PARAMETER_TYPES_MAP_OK(QC_PTR, 
SBC_PTR.P_UST(INDEX).GENERIC_IJNK.MAPPING); 

else 

MATCH := OUTPUT_PARAMETER_TYPES_MAP_OK(QC_PTR, 
SBC_PTR.P_LIST(INDEX)); 

end if; 

end if; 

if MATCH then 

N 0_M ATCH_POS SIB LE := FALSE; 

-- add matched software base component parameter to 

- linked list 

if (C0NTAINER.P_L1ST(NUM) = nuU) then 

-- initialize list 

PTR := new VAUD_MATCH_UST; 

PTR.THE_PARAMETER := INDEX; 

PTR .NEXT := null; 

CONTAINER.P_UST(NUM) := PTR; 

else 
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— append to list 

PTR.NEXT := new VAUD_MATCH_UST; 
PTR := PTR.NEXT; 

PTR.THE_P ARAM ETER := INDEX; 
PTR.NEXT := null; 
end if; 
end if; 
end loop; 

NUM := NUM + 1; 



QC PTR := QC_PTR.NEXT; 

end loop; 
end if; 

end LOAD2_QC_PARAMETERS; 



— This procedure examines the arrays of a query component and a 

— software base component and determines whether each query component 

— array can be matched against a distinct array in the software 

— base component. If so, NO J4ATCH is returned as FALSE. If not, then 

— NO JAATCH is returned as TRUE. 

procedure COMPONENT_MATCH(QC_IN_PARAM_LIST : in PARAMETERS; 

QC_OUT_PARAM_LIST ; in PARAMETERS; 

SB C_IN_P ARAM_LIST : in PARAMETERS; 

SB C_OUT_P ARAM_LIST : in PARAMETERS; 

NO_MATCH : in out BOOLEAN) is 



QC_IN, QC_OUT : MAPPING_LIST_PTR := null; 
SBCJN, SBC_OUT ; POTENTIAL_MATCH_PTR := null; 



begin 

MATCH.FOUND := TRUE; 



— build dynamic arrays to store String and Array parameters 
INTT2_QC_M ATC H_LIST(QC_IN , QC_IN_PARAM_LIST); 
INIT2_QC_MATCH_LIST(QC_OUT, QC_OUT_PARAM_UST); 
INIT2_SBC_PARAM_LIST(SBC_IN, SBC_IN_PARAM_LIST); 
INIT2_SBC_PARAM_UST(SBC_OUT,SBC_OUT_PARAM_UST); 
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-- store all software base component parameters in a list 
L0AD2_SBC_PARAMETERS(SBC_IN, SBC_IN_PARAM_LIST); 

L0AD2_SBC_PARAMETERS(SB C_OUT, SBC_OUT_PARAM_UST); 

- store all query component parameters in a list 

— (not the actual values, just their representation by 

— a list index position) and to each list index position, 

— attach a linked list of all software base component 

- parameters that match the query component parameter 

- represented by that list index position. 

L0AD2_QC_PARAMETERS(QC_IN, QC_IN_PARAM_UST, SBCJN, INPUT.MATCH, NO_MATCH); 

if not NO_MATCH then - all query component input parameters 

- have at least one possible mapping 

LOAD2_QC_PARAMETERS(QC_OUT, QC_OUT_PARAM_UST, SBC_OUT, OUTPUT_MATCH, 
NO.MATCH); 

if not no_match then -- all query component output parameters 

- have at least one possible mapping 

if (QC_IN j- null) then 

-- search for solution that provides valid mapping for entire 
- set of query component input parameters 
MATCH_FOUND := FALSE; 

TREE_TRAVERSAL(QC_IN, SBC_IN, 1); 

if MATCH_FOUND then 

if (QC_OUT /= null) then 

-- search for solution that provides valid mapping for 

- entire set of query component output parameters 
MATCH_FOUND := FALSE; 

TREE_TR AVERS AL(QC_OUT, SBC_OUT, 1); 
end if; 
end if; 
end if; 



else 



MATCH_FOUND := FALSE; 
end if; 

else 

MATCH.FOUND := FALSE; 
end if; 

if MATCH_FOUND then 
NO_MATCH := FALSE; 



151 



else 

NOJVLATCH := TRUE; 
end if; 



end COMPONENT.MATCH; 



— Routines Particular to the Process 

— of Instantiating Generics 



- determines whether the specified INDEX ( representing a particular 

- query parameter) is already represented in the list 

function NOT_MEMBER(ID ; INTEGER; 

HEAD : VALID_MATCH_UST,PTR) return BOOLEAN is 

PTR : V ALID_M ATCH_LI ST_PTR := HEAD; 

NOT.A.MEMBER : BOOLEAN := TRUE; 

begin 

while ((PTR /= null) and (NOT_A_M EMBER)) loop 

if (PTR.THE_PARAMETER = ID) then 

— it's a duplicate 

NOT_A_MEMB ER := FALSE; 
end if; 

PTR := PTR .NEXT; 
end loop; 

return NOT_A_MEMBLR; 
end NOTJV1EMBER; 
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- initialize the dynamic arrays. Set up the list of all 

- query component parameters to be used when instantiating 
-- the generics. 

procedure INTTIAIJZE_QC_INSTANTIATION_UST(CONTAINER : in out POTENTIAL.MATCHJTR; 

QC JN : in PARAMETERS; 

QCJ3UT : in PARAMETERS; 

NUM_QC_IN : in out INTEGER; 

NUM.QC.OUT : in out INTEGER) is 

TOT AL_QC_P A RAM S : INTEGER; 
begin 

-- build dynamic arrays to store query component parameters 

NUM_QC JN := GET_PARAMETER_COUNT(QC_IN); 

NUM_QC_OUT := GET_PARAMETER_COUNT(QC_OUT); 

TOTAL_QC_P ARAMS := NUM_QC _IN + NUM_QC_OUT; 

if TOTAL_QC_P ARAMS > 0 then 

CONTAINER := new POTENTIAL JvlATC H_LIST (TOTAL_QC_P ARAMS ) ; 
end if; 

end INTTIALIZE_QC_IN ST ANTIATION_LIST ; 



- initialize the dynamic arrays. Set up the list of all 

- software base component generic parameters. 

procedure IMTIALIZE_SBC_GEN_P ARAM JJST(CONTAINER : in out MAPPING_LIST_PTR; 

SBC_GEN : in PARAMETERS) is 



NUM_OF_GENERICS : INTEGER; 
begin 



- build dynamic arrays to generic parameters 

NUM_OF_GENERICS := GET_PARAMETER_COUNT(SBC_GEN); 

if NUM_OF_GENERICS > 0 then 

CONTAINER ;= new MAPPING_LIST(NUM_OF_GENERICS); 
end if; 

end INITIALIZE_SBC_GEN_PARAM_LIST; 
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-- load the query component dynamic array with its parameter list 

— of input and output parameters. Used for generic instantiation. 

procedure G EN_LO AD_QC_P ARAMETE R S (C ONT AINE R : in out POTE>nTAL_MATCH_PTR; 

QC_EN : in PARAMETERS; 

QC_OUT : in PARAMETERS) is 

NEWJD : PSDLJD.PKG.PSDLJD; 

PTR : PARAMETERS; 

NUM_OF_GENERICS : INTEGER; 

begin 

- load the dynamic arrays 

if CONTAINER /= null then 
NU M_OF_GENERICS := 1; 

PTR := QC_IN; 

- load input parameters 

while ((PTR /= null) and (NU M_0 F_G EN ERI C S <= CONTAINER. SIZE)) loop 

CONTAINER.P_IJST(NUM_OF_GENERICS) := PTR; 

NUM_OF_GENERICS := NUM_OF_GENERICS + 1; 

PTR := PTR.NEXT; 

end loop; 



PTR := QC_OUT; 

- load output parameters 

while ((PTR j- null) and (NUM_OF_GEN ERICS <= CONTAINER. SIZE)) loop 

CONTAINER.P_LIST(NUM_OF_GENERICS) := PTR; 

NUM_OF_GENERICS := NU M_OF_G ENERICS + 1; 

PTR := PTR.NEXT; 



end loop; 
end if; 

end GEN_LOAD_QC_PARAMETERS; 



— Loads the softM’are base component generic parameters ( not actual 
-- parameters, but positional location in an array) and their 

- corresponding list of instantiation matched query component 
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-- parameters. If a software base component generic parameter has 

- no corresponding matches amongst the query component parameters 

- then no overall match is possible and the process for this particular 

- software base component can be terminated. 

procedure LOAD_GEN_PARAMETERS (CONTAINER : in out MAPPING_UST_PTR; 

SBC_GEN_PARAM_UST : in PARAMETERS; 
QCJNSTANnATlONS : in POTENTIAL_MATCH_PTR; 
SBC_IN_PARAM_UST : in PARAMETERS; 
SBC_OUT_PARAM_UST : in PARAMETERS; 
NUM_QCJN : in INTEGER; 

NUM_QC_OUT : in INTEG ER; 

NO_MATCH_POSSIBLE : in out BOOLEAN) is 



GEN_PTR ; PARAMETERS := SBC_GEN_PARAM_LIST; 

QC_PTR : POTENTIAL_M ATC H_PTR ; 

PTR : VALID_MATCH_LIST_PTR; 

SBC_PTR : PARAMETERS; 

NUM_OF_GENERICS : INTEGER; 

MATCH : BOOLEAN; 



begin 

NO_MATCH_POSSEBLE := FALSE; 
if CONTAINER /= null then 



- go through generic parameters 

NUM_OF_GENERICS := 1; 

while ((GEN_PTR /= null) and (NUM_OFj3ENERICS <= CONTAINER. SIZE) and 
(not NO_MATCH_POSSIBLE)) loop 



PTR := null; 

NO_MATCH_POSSIBLE := TRUE; 



SBC_PTR := S B C_EN_P ARAM_LIST ; 
while (SBC_PTR /= null) loop 

if ((SBC_PTR.DEFINED_BY_GENERIC_TYPE) and then (SBC_PTR.GENERIC_LINK 
GEN_PTR)) then 



QC_PTR := QC_INSTANTIATIONS; 

for INDEX in l .. NUM_QC_1N loop — go through qc in parameters 
- see if the two parameters match 

MATCH := INPUT_PARAMETER_TYPES_MAP_OK(QC_PTR.P_LIST(lNDEX), 
SBC_PTR); 

if MATCH then 

NO_MATCH_POSSlBLE := FALSE; 

-- add matched query component parameter to 
— linked list 

if (CONTAINER.P_UST(NUM_OF_GENERICS) = null) then 

-- initialize list 

PTR := new V ALID_MATC H_U ST; 

PTR.THE_ PARAMETER := INDEX; 
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PTR.NEXT := null; 

CONTAINER.P_LIST(NUM_OF_GENERICS) := PTR; 
else 

-- see if INDEX (representing a particular query 
— component parameter) is already in the list 

if (NOT_MEMBER (INDEX, CONTAlNER.P_UST(NUM_OF_GENERICS))) then 

-- append to list 

PTR.NEXT := new VAUD_MATCH_UST; 

PTR := PTR.NEXT; 

PTR.THE_PARAMETER .-INDEX; 

PTR.NEXT := null; 
end if; 
end if; 
end if; 

end loop; 

end if; 

SBC.PTR := SBC.PTR.NEXT; 

end loop; — while SBC PTR ( input params) 

— /= null 



SBC_PTR := SBC_OUT_PARAM_UST; 
while (SBC_PTR /= null) loop 

if ((SBC_PTR.DEFINED_BY_GENERIC_TYPE) and then (SBC_PTR.GENERIC_LINK = 
GEN.PTR)) then 

QC_PTR := QC^INSTANTIATIONS; 



- skip over qc in parameters by starting INDEX at 

- NUMJQCJN + 1 

for INDEX in (NUM_QC_IN + 1) .. (NUM_QC_OUT + NUM_QC_IN) loop 

- go through qc out parameters 

- see if the two parameters match 

MATCH := OUTPUT_PARAMETER_TYPES_MAP_OK(QC_PTR.P_UST(INDEX), 
SBC_PTR); 

if MATCH then 

NO_MATCH_POSSIBLE := FALSE; 

— add matched query component parameter to 

— linked list 

if (CONTAINER. P_LIST(NUM_OF_GENERICS) = null) then 
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~ initialize list 

PTR := new VALID_MATCH_UST; 
PTR.THE_PARAMETER := INDEX; 

PTR.NEXT := null; 

CONTAINER.P_UST(NUM_OF_GENERICS) := PTR, 
else 



-- see if INDEX (representing a particular query 
— component parameter) is already in the list 

if (NOT_MEMBER(INDEX, CONTAINER.P_UST(NUM_OF_GENERICS))) then 

— append to list 

PTR .NEXT := new VALID_MATCH_UST; 

PTR := PTR.NEXT; 

PTR.TH E_P ARAMETER ;= INDEX; 

PTR.NEXT := null; 

end if; 
end if; 
end if; 

end loop; 

end if; 

SBC.PTR := SBC_PTR.NEXT; 



end loop; — while SBC_PTR ( output params) 

— /= null 



- next generic parameter 

NUM_OF_GENERICS := NUM_OF_GENERICS + 1; 
GEN.PTR := G EN_PTR . NEXT ; 

end loop; 
end if; 



end LO AD_GEN_PARAMETERS ; 



-- This function takes an index value from a created array of 
-- generic parameters and returns a pointer to the actual 

-- generic parameter referenced by the array index value 

function GET_GENERIC_PARAM_TO_INSTANTIATE(COUNT ; INTEGER; 

PARAM_LIST : PARAMETERS) 
return PARAMETERS is 

INDEX : INTEGER := COUNT; 

GEN_PTR : PARAMETERS := PARAM_LIST; 
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begin 



if (INDEX > 0) then 
INDEX := INDEX - 1; 

while ((GEN.PTR /= null) and (INDEX > 0)) loop 

GEN_PTR := G EN_PTR .NEXT; 

INDEX := INDEX - 1; 

end loop; 

return GEN_PTR; 

else 

return null; 
end if; 
exception 

when CONSTRAINT.ERROR => 

PUT_LINE(" *** ERROR occured in function "); 

PUT_UNE(’’ G ET_G EN ERIC_P ARAM_TO_IN ST ANTIATE. ”); 
raise ; 

end GET_GENERlC_PARAM_TO_INSTANnATE; 



- The "tree traversal" treats the linked lists of matched query 

- component parameters as a tree rooted at the first software base 

- component parameter. Conceptually, the tree is a combinatoric 

- explosion of all possible mappings of one generic parameter to 

- a valid query' component parameter (so that no query component 

- parameter is used more than once). The traversal does not explore 

- all paths. If a node is reached that selects a query component 

- parameter that was already selected, no lower level nodes on that 

- path need to be visited. Also, the tree is never physically built, 

-- just logically traversed. This helps alleviate potential memory 

- problems. Backtracking occurs when a generic parameter (tree level) 

- is reached that cannot find an unused query parameter from 
-- its linked list of valid mappings. In the worst case it is 

- estimated that the number of paths to be checked is N factorial 

- where N is the total number of query parameters. 

procedure GEN_TREE_TRAVERSAL(GEN_LIST : in MAPPING_UST_PTR; 

QC_PARAM_USAGE : in out POTENTIAL_MATCH_PTR; 
QCJN_PARAM_UST : in out PARAMETERS; 
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QC_OUT_PARAM_UST : in out PARAMETERS. 
SBC_IN_PARAM_LIST : in out PARAMETERS; 
SBC_OUT_PARAM_LIST : in out PARAMETERS; 
G EN_PARAM_LI ST : in out PARAMETERS; 
LEVEL : in INTEGER) is 

NO_MATCH : BOOLEAN ;= TRUE; 

GEN_PTR ; PARAMETERS; 

-- set a pointer to the current query parameter for the 
— current generic parameter 

QC_PTR : VALID_MATCH_UST_PTR := GEN_UST.P_UST(LEVEL); 
begin 



while ((QC_PTR /= null) and (not MATCH_FOUND)) loop 

if (not QC_PARAM_USAGE.IS_MAPPED(QC_PTR.THE_PARAMETER)) then 
-- generic parameter maps to query parameter that has not 
— been claimed (mapped to) yet. 

QC_PARAM_USAGE.IS_MAPPED((QC_PTR.THE_PARAMETER)) := TRUE; 

— instantiate the generic 

GEN.PTR ;= G ET_G ENERIC_PARAM_TO_IN ST ANTI ATE(LE VEL, GEN_PARAM_UST); 
GEN_PTR MAPPING := QC_PARAM_USAGE.P_LIST(QC_PTR.THE_PARAMETER); 



if (LEVEL < GEN_LIST.SIZE) then — haven't reached bottom 

GEN_TREE_TRAVERSAL(GEN_LIST, QC_PARAM_US AGE, QC_IN_PARAM_UST, 
QC_OUT_PARAM_LIST, SBCJN_PARAM_LIST, SBC_OUT_PARAM_UST, 
GEN_PARAM_LIST, LEVEL + 1); 

— backtracked to this point, now will try next qc parameter 

— in the list so must reset current query parameter 

— mapped to by this generic parameter to FALSE 

QC_PARAM_USAGE.IS_MAPPED((QC_PTR.THE_PARAMETER)) ;= FALSE; 

QC_PTR := QC_PTR.NEXT; 

— also need to de -instantiate the generic 

GEN_PTR := GET_GENERIC_PARAM_TO_INSTANTIATE(LEVEL, GEN_PARAM_LIST); 
GEN_PTRMAPPING := null; 

else 

-- We have a scheme that successfully instantiates all 

— generics. Now, based on these instantiations, see 

— if a valid mapping between the query and software 

— base components is possible. If so, COMPONENT MATCH 

— sets the package body global variable MATCH _FOUND to 

— TRUE. 
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COMPONENT_MATCH (QC_IN_P ARAM_LJ ST, QC_OUT_PARAM_UST, SBCJN_PARAM_UST, 
SBC_OUT_PARAM JUST, NO_MATCH); 

if not MATCH.FOUND then 

- we need to remove the hold on this qc parameter 

QC_PARAM_USAGE.IS_MAPPED((QC_PTR.TOE_PARAMETER)) := FALSE; 

QC.PTR := QC.PTRJsTEXT; 



- also need to de-instantiate the generic 

GEN.PTR := GET_GENERIC_PARAM_TO_INSTANTIATE(LE VEL, GEN_PARAM_UST); 
GEN.PTR.MAPPING := null; 



end if; 



end if; 



else 

- try the next query component parameter in the list 



QC_PTR := QC_PTR.NEXT; 



end if; 
end loop; 

end GEN_TREE_TRAVERSAL; 



- This procedure attempts to find a valid mapping between a 

- query component and a generic software base component. The 

- valid mapping includes finding a possible instantiation of 

- the generic that leads to a valid mapping between parameters. 

- If a valid mapping is found, NO_MATCH is returned as TRUE. If 

-- not, then NO MATCH is returned as FALSE. 

procedure FINDJNSTANTIATION(QC_IN_PARAM_LIST : in out PARAMETERS; 

QC_OUT_PARAM_UST : in out PARAMETERS; 
SBC_IN_PARAM_UST : in out PARAMETERS; 
SBC_OUT_PARAM_UST : in out PARAMETERS; 
SBC_GEN_PARAM_LIST : in out PARAMETERS; 
NO.MATCH ; in out BOOLEAN) is 

NUM.QCJN, NUM_QC_OUT : INTEGER := 0; 

SBC.GEN : MAPPING_UST_PTR := null; 

QC JNSTANTIATIONS : POTENTTAL_MATCH_PTR := null; 



begin 

MATCH.FOUND := TRUE; 



160 



— build dynamic arrays to store generic parameters 

— and their valid matches (i.e., instantiations) 
INITIALIZE_SBC_GEN_PARAM_UST(SBC_GEN, SBC_GEN_PARAM_UST); 
ENmALIZE_QC_INSTANnATION_LIST(QC_rNSTANnATIONS, QC_IN_PARAM_LIST, 
QC_OUT_PARAM_UST, NUM_QC JN, NUM_QC_OUT); 



-- store all qc parameters that could instantiate generic 
- parameters 

GEN_LOAD_QC_PARAMETERS(QC_INSTANTIATIONS, QC_IN_PARAM_LIST, 
QC_OUT_PARAM_UST); 



- store all software base component generic parameters in 

- a list (not the actual values, just their representation by 

- a list index position) and to each list index position, attach 

- a linked list of all query component parameters that match 

- the software base component generic parameter represented 

- by that list index position. 

LOAD_GEN_PARAMETERS(SBC_GEN, SB C_GEN_PARAM_LIST, QC_EN ST ANTIATIONS , 
SBCJN_PARAM_UST, SBC_OUT_PARAM_LIST, NUM_QC_IN, NUM_QC_OUT, NO_MATCH); 

if not NO.MATCH then -- all software base component generic 
— parameters have at least one possible mapping 

if (SBC_GEN /= null) then 

-- search for solution that provides valid mapping for entire 
— set of software base component generic parameters 
MATCH_FOUND := FALSE; 

GEN_TREE_TRAVERSAL(SBC_GEN, QCJNSTANTIATIONS, QC_IN_PARAM_UST, 
QC_OUT_PARAM_UST, SBCJN_PARAM_LIST, SBC_OUT_PARAM_UST, 
SBC_GEN_PARAM_LIST, 1); 



else 

MATCH_FOUND := FALSE; 
end if; 

else 

MATCH.FOUND := FALSE; 
end if; 

if MATCH_FOUND then 
NO.MATCH := FALSE; 
else 

NO.MATCH := TRUE; 
end if; 



161 



end FIND_INSTANTIATION ; 
end OPERATOR_MATCH_ROUTINES ; 



********************************************************************************* 

********************************************************************************* 

********************************************************************************* 



-- Filename / AdaRecognizedTypesPkg.a 

— Date / 6 June 93 

— Author / Scott Dolgoff 

— System / Sun SPARCstation 

-Compiler /VerdixAda 

-- Description / This package defines the recognized Ada types and 
/ provides a function for determining if a specified 
/ type is an Ada type. 



with PSDL_ID_PKG; 
use PSDL_ID_PKG; 

package ADA_RECOGNTZED_TYPES_PKG is 



— function to determine if a type defined in a PSDL specification is 
- a recognized Ada type (if not then it must be a user defined type) 
function RECOGNIZED_ADA_TYPE(TYPE_NAME : in PSDL_ID_PKG.PSDL_ID) 

return BOOLEAN; 



- define recognized Ada types 



PRIVATE_TYPE 

DISCRETE.TYPE 

ENUMERATION.TYPE 

BOOLEAN.TYPE 

CHARACTER_TYPE 

INTEGER.TYPE 

RANGE.TYPE 

N ATI) RAL_T YPE 

POSITIVE.TYPE 

ARRAY.TYPE 

STRING.TYPE 

DIGITS_TYPE 

FLOAT.TYPE 

DELTA_TYPE 

FIXED_TYPE 



: constant STRING := "PRIVATE"; 

: constant STRING := "DISCRETE"; 

: constant STRING := "ENUMERATION"; 
: constant STRING := "BOOLEAN"; 

: constant STRING := "CHARACTER"; 

: constant STRING := "INTEGER"; 

: constant STRING := "RANGE"; 

: constant STRING := "NATURAL"; 

: constant STRING := "POSITIVE"; 

: constant STRING := "ARRAY"; 

: constant STRING := "STRING"; 

: constant STRING := "DIGITS"; 

: constant STRING := "FLOAT"; 

: constant STRING := "DELTA"; 

: constant STRING := "FIXED"; 



RECO RD_TYPE : constant STRING := "RECORD"; 



ACCESS.TYPE : constant STRING := "ACCESS"; 



-- define special types treated as Ada types 
- they are initialized in the package body { begin .. end} 
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ARRAY_ELEMENT_TYPE, ARRAY_INDEX_TYPE : PSDLJD J>KG.PSDLJD; 



end ADA_RECOGNTZED_TYPES_PKG; 



with A.STRINGS, TEXT _I0; 
use A_STRINGS, TEXT JO; 

package body ADA_RECOGNIZED_TYPES_PKG is 



-- function to determine if a type defined in a PSDL specification is 

— a recognized Ada type (if not then it must be a user defined type) 

function RECOGNIZED_ADA_TYPE(TYPE_NAME : in PSDL_ID_PKG.PSDL_ID) 

return BOOLEAN is 

TH E_TYPE_N AME : A_STRINGS.A_STRING; 
begin 

THE_TYPE_NAME := A_STRINGS.LOWER_TO_UPPER(TYPE_NAME); 



if (THE_TYPE_NAME.S = PRIVATE JTPE) or (THE_TYPE_N AME. S = DISCRETEJTYPE) or 
(THE_TYPE__N AME . S = ENUMERATION.TYPE) or (THE_TYPE_NAME.S = BOOLE AN_TYPE) or 
(THE_TYPE_NAME.S = CHARACTER J'YPE) or (THE_TYPE_NAME.S = INTEGER_TYPE) or 
(THE_TYPE_N AME . S = RANGE.TYPE) or (THE_TYPE_NAME.S = NATURAL_TYPE) or 
(THE_TYPE_N AME. S = POSmVE_TYPE) or (THE_TYPE_NAME.S = ARRAY_TYPE) or 
(THE_TYPE_NAME.S = STRINGJTYPE) or (THE_TYPE_NAME.S = DIGITS _TYPE) or 
(THE_TYPE_NAME.S = FLOAT_TYPE) or (THE_TYPE_NAME.S = DELTA.TYPE) or 
(TH E_TYPE_N AME . S = FIXED_TYPE) or (THE_TYPE_NAME.S = RECORD.TYPE) or 
(THE_TYPE_NAME.S = ACCESS_TYPE) then 
return TRUE; 



else 



— unrecognized Ada type 
return FALSE; 
end if; 



end RECOGNIZED_ADA JTYPE; 



begin -- package body initialization 

— initialize special types that are treated as Ada types 
ARRAY_ELEMENT_TYPE := new A_STRINGS.STRING_REC(13); 
ARRAY_ELEMENT_TYPE.S := "ARRAY_ELEMENT "; 
ARRAY_INDEX_TYPE := new A_STRINGS.STRING_REC(11); 
ARRAY_INDEX_TYPE.S := "ARRAY_INDEX"; 
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end AJDA_RECOGNIZED_TYPES_PKG; 



********************************************************************************* 

********************************************************************************* 

********************************************************************************* 



-- Filename / Add_Ada_Type_To_Signature.a 

-Date 1 29 August 93 

— Author / Scott Dolgoff 

— System / Sun SPARCstation 

— Compiler / Verdix Ada 

-- Description / This package encodes a specified 

/ Ada type into a software component signature. 



with PSDL_ID_PKG; 
use PSDLJD_PKG; 

package ADD_ADAjTYPE_TO_SIGNATURE_PKG is 

- A signature has 24 total regions (7 are generic ) 

type ALL_REGIONS is range 1 .. 24; 

— For matching input signatures, the first 18 regions are the 

- most important. They include all non-generic regions (1 ..17) 

— and the generic Private region ( Region 18). 

subtype INPUT_REGION S is ALL.REGIONS range 1 .. 18; 

— For matching output signatures, the first 17 regions are the 

— most important. They include all non-generic regions (1 ..17). 

— The generic regions are examined only if the need arises. 

subtype OUTPUT.REGIONS is ALL.REGIONS range 1 .. 17; 

-- Each region is represented by a 32 bit integer. Thus 2 A 32 - 1 

- type instances can be represented by a single region. 

type SIGNATU RE is anay( ALL.REG IONS) of INTEG ER; 

-- When encoding a signature, it is necessary to know which 

- direction in the subtype hierarchy you must travel. In other 

- words, are you concerned with subregions or super-regions. 
type IO_SWITCH_CLASSES is (INPUT_PARAMETER, OUTPUT.PARAMETER); 

-- This procedure adds the 

- Ada type passed in to the Signature passed in, and passes 
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-- out the newly updated Signature. 

procedure ADD_AD A_TYPE_TO_SIGNATURE(TYPE_N AME : in PSDL_ID_PKG.PSDL_ID; 

THE.SIGNATURE : in out SIGNATURE; 

IO_S WITCH : in IO_SWITCH_CL ASSES; 

G ENERICJTYPE : in BOOLEAN); 



- *** This MUST be called prior to encoding an Operator or Type 

- Signature . Sets initial signatures to 0. 

procedure LNl IiALIZE_SIGNATURES(THE_SIGNATURE ; in out SIGNATURE); 

-- exceptions 

UNRECOGNIZED_GENERIC_TYPE, UNRECOGNIZED_TYPE : exception; 
end ADD_AD A_TYPE_TO_SIGN ATURE_PKG ; 
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with A_STRINGS, TEXT JO, AD A_RECOGNIZED_TYPES_PKG ; 
use A_STRINGS,TEXTJO, AD A_RECOGNIZED_TYPES_PKG ; 

package body ADD_ADA_TYPE_TO_SIGNATURE_PKG is 

— Sets initial signatures to 0. 

procedure INITIALIZE_SIGNATURES(THE_SIGNATURE : in out SIGNATURE) is 
begin 

for REGION in ALL_REGIONS' FIRST .. ALL_REGIONS LAST loop 
TH E_SIGN ATURE(REGION) := 0; 
end loop; 

end INITTALJZE_SIGNATURES; 



— This procedure adds a type instance to the specified 

— signature region. 

procedure ADD_l_TYPE_TO_REGION(REGION : in ALL_REGIONS; 

THE_SIGNATURE : in out SIGNATURE) is 



begin 



— increment number of type instances in the region by 1 

THE_SIGNATURE(REGION) := THE_SIGNATURE(REGION) + 1; 



end ADD_l_TYPE_TO_REGION; 



— This procedure adds the 

— Ada type passed in to the Signature passed in, and passes 

— out the newly updated Signature. 

procedure ADD_AD A_TYPE_TO_SIGN ATURE(TYPE_N AME : in PSDL_ID_PKG.PSDL_ID; 

THE_S1GNATURE : in out SIGNATURE; 

10.SWITCH : in IO_SWITCH_CLASSES: 
GENERIC.TYPE : in BOOLEAN) is 



REGION 1 


: constant ALL_REGIONS 


= 1 


- Positive 


REGION2 


: constant ALL_REGIONS 


= 2 


— Natural 


REGION3 


: constant ALL_REGIONS 


= 3 


— Boolean 


REGION4 


: constant ALL_REGIONS 


= 4 


— Character 


REGIONS 


: constant ALL_REGIONS 


= 5 


- Range 


REGION6 


: constant ALL_REGIONS 


= 6 


- Integer 
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REGION7 


: constant ALL_REGIONS : 


= 7; 


-- Enumeration 


REGION8 


: constant ALL_REGIONS : 


= 8; 


— Discrete 


REGION9 


: constant ALL_REGIONS : 


= 9; 


- Record 


REGION 10 


: constant ALL_REGIONS 


= 10 


-- Access 


REGION 1 1 


: constant ALL_REGIONS 


= 11 


— String 


REGION12 


: constant ALL_REGIONS 


= 12 


- Array 


REGION 1 3 


: constant ALL_REGIONS 


= 13 


- Fixed 


REGION 14 


: constant ALL_REGIONS 


= 14 


— Delta 


REGION 15 


: constant ALL_REGIONS 


= 15 


— Float 


REGION 16 


: constant ALL_REGIONS 


= 16 


— Digits 


REGION 17 


: constant ALL_REGIONS 


= 17 


— Private 


REGION 18 


: constant ALL_REGIONS 


= 18 


— generic Private 


REGION 19 


: constant ALL_REGIONS 


= 19 


— generic Discrete 


REGION 20 


: constant ALL_REGIONS 


= 20 


- generic Range 


REGION21 


: constant ALL_REGIONS 


= 21 


- generic Array 


REGION22 


: constant ALL_REGIONS 


= 22 


- generic Digits 


REGION23 


: constant ALL_REGIONS 


= 23 


- generic Delta 


REGION24 


: constant ALLJREGIONS 


= 24 


— generic Float 



TH E_TYPE_NAME : A_STRINGS.A_STRING; 



begin 

THE_TYPE_N AME := A_STRIN G S . LO WER_TO_U PPER(TYPE_N AM E) ; 
case IO_SWITCH is 



when INPUT_PARAMETER => 



if ((PRIVATE_TYPE = the_type_name.S) and - generic Private 
(GENERIC_TYPE)) then 

— all regions are included as the pattern for this type 

for REGION in INPUT_REGIONS FIRST .. INPUT_REGION S LAST loop 
ADD_l_TtTE_TO_REGION(REGION, TH E.SIGNATURE); 
end loop; 



els if ( PRI V ATE_TYPE = THE_TYPE_NAME.S) then - Private 
ADD_l_TYPE_TO_REGION(REGION17, THE_SIGNATURE); 

elsif (DISCRETE_TYPE = THE_TYPE_NAME.S) then 
-- regions below discrete are numbered consecutively from 
— 1 through 7 . 

for REGION in REGION 1 .. REGION8 loop 
ADD_l_TYPE_TO_REGION(REGION, THE_SIGNATURE); 
end loop; 
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if GENERIC_TYPE then 

add information to particular generic type 
ADD_1_TYPE_T0_REGI0N(REGI0N 19, THE.SIGN ATURE); 
end if; 



elsif (ENUMERATION.TYPE = THE_TYPE_NAME.S) then 
ADD_ 1 _TYPE_TO_REGION (REGION7 , THE_SIGN ATURE); 
also add Boolean and Character 
ADD_l_TYPE_TO_REGION (REGION3, THE_SIGN ATURE); 
ADD_l_TYPE_TO_R£GION(REGION4 > THE_SIGNATURE); 



elsif (BOOLEAN.TYPE = THE_TYPE_NAME.S) then 
ADD_1 _TYPE_TO_REGI ON (REGION 3 , THE.SIGNATURE); 

elsif (CHARACTER.TYPE = THE_TYPE_NAME.S) then 
ADD_l_TYPE_TO_REGION(REGION4 > THE_SIGN ATURE); 

elsif (INTEGER_TYPE = THE_TYPE_NAME.S) then 
ADD_ 1 JITPE_TO_REGION (REGION6, THE.SIGNATURE); 
add Range , Natural , and Positive 
ADD_l_TYPE_TO_REGION(REGION5, THE_SIGN ATURE); 
ADD_1 _TYPE_TO_REGION(REGION2, THE_SIGN ATURE); 
ADD_l_TYPE_TO_REGION(REGIONl , THE_SIGNATURE); 

elsif (RANGE_TYPE = THE_TYPE_NAME.S) then 
ADD_l_TYPE_TO_REGION(REGION5 , THE_SIGNATURE); 

if GENERIC_TYPE then 

add information to particular generic type 
ADD_1_TYPE_TO_REGION(REGION20,THE_SIGNATURE); 
end if; 



elsif (NATURAL_TYPE = THE_TYPE_NAME.S) then 
ADD_l_TYPE_TO_REGION(REGION2,THE_SIGNATURE); 

add Positive 

ADD_1 _TYPE_TO_REGION (REGION 1 , THE_SIGN ATURE); 



elsif (POSmVE_TYPE = THE_TYPE_NAME.S) then 
ADD_l_TYPE_TO_REGION(REGION 1 , THE_SIGNATURE); 



elsif (ARRAY_TYPE = THE_TYPE_NAME.S) then 
ADD_ 1 _TYPE_TO_REGION(REGION 1 2, THE_SIGNATURE); 
add String 

ADD_l_TYPE_TO_REGION(REGIONl 1, THE_SIGNATURE); 
if GENERIC_TYPE then 

add information to particular generic type 
ADD_l_TYPE_TO_REGION(REGION21.THE_SIGN ATURE); 
end if; 



elsif (STRING_TYPE = THE_TYPE_NAME.S) then 
ADD_ 1 _TYPE_TO_REGION(REGION 1 1 , THE.SIGNATURE); 

elsif (DIGITS_TYPE = TH E_TYPE_N AME . S) then 
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ADD_ 1 .TYPE.TO.REGION ( REGION 1 6, THE_SIGNATURE); 

— add Float 

ADD_l_TYPE_TO_REGION(REGION15, THE.SIGNATURE); 
if GENERIC_TYPE then 

-- add information to particular generic type 

ADD_l_TYPE_TO_REGION(REGION22,THE_SIGNATURE); 
end if; 



elsif (FLOAT.TYPE = THE_TYPE_NAME.S) then 
ADD.l _TYPE_TO_REGION(REGION 1 5 , THE_SI GN ATURE) ; 

elsif (DELTA.TYPE = THE.TYPE.N AME. S) then 
ADD_l_TYPE_TO_REGION(REGION14, THE.SIGNATURE); 

— add Fixed 

ADD.l _TYPE_TO_REGION(REGION 1 3, THE.SIGNATURE); 
ifGENERIC.TYPE then 

- add information to particular generic type 

ADD_l_TYPE_TO.REGION(REGION23,THE_SIGNATURE); 
end if; 



elsif (FIXED.TYPE = THE.TYPE.NAME.S) then 
ADD_l_TYPE_TO.REGION(REGION 1 3, THE.SIGNATURE); 

elsif (RECORD.TYPE = THE.TYPE.NAME.S) then 
ADD_l_TYPE_TO_REGION(REGION9, THE.SIGNATURE); 

elsif (ACCESS.TYPE = THE.TYPE.NAME.S) then 
ADD.l .TYPE.TO.REGION (REGION 1 0, THE.SIGNATURE); 

if GENERIC.TYPE then 

-- add information to particular generic type 

ADD_l_TYPE_TO_REGION(REGION24, THE.SIGNATURE); 
end if; 



else 

raise UNRECOGNIZED_TYPE; 
end if; 



when OUTPUT_PARAMETER => 
if GENERIC.TYPE then 

if (PRTV ATE.TYPE = THE.TYPE.NAME.S) then 
ADD_l_TYPE_TO_REGION(REGION18, THE.SIGNATURE); 

elsif (DISCRETE.TYPE = THE.TYPE.NAME.S) then 
ADD_l_TYPE_TO_REGION(REGION19, THE.SIGNATURE); 

elsif (RANGE.TYPE = THE.TYPE.NAME.S) then 
ADD.l _TYPE_TO_REGION(REGION20, TH E.SIGN ATURE); 

elsif (ARRAY.TYPE = THE.TYPE.NAME.S) then 
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ADD J JITPE_TO _REGION(REGION21 , THEJSIGN ATURE); 



elsif (DIGITS.TYPE = THE_TYPE_NAME.S) then 
ADD_l_TYPE_TO_REGION(REGION22, THEJSIGN ATURE); 

elsif (DELTA.TYPE = THE_TYPE_NAME.S) then 
ADD_l_TYPE_TO_REGION(REGION23,THE_SIGNATURE); 

elsif (ACCESS.TYPE = THE.TYPE.NAME.S) then 
ADD_ 1 JTYPE_TO_REGION (REGION 24 , THE_SIGN ATURE) ; 

else 

raise UNRECOGNIZED J3ENERICJTYPE; 



end if; 



elsif (PRTV ATE_TYPE = THE_TYPE_NAME.S) then 
ADD_1 _TYPE_TO_REGION(REGION 1 7, THE_SIGN ATURE); 

elsif (DISCRETE_TYPE = THE_TYPE_NAME.S) then 
ADD_l_TYPE_TO_REGION(REGION8, THE_SIGN ATURE); 

elsif (ENUMERATION.TYPE = THE_TYPE_NAME.S) then 
ADD_l_TYPE_TO_REGION(REGION7, THEJSIGNATURE); 

add Discrete 

ADD_lJirPEJT0JlEG10N(REGI0N8,THEJSIGNATURE) ; 

elsif (BOOLEAN^TYPE = THE_TYPE_NAME.S) then 
ADD_ 1 _TYPE_TO_REGIONCREGION3 , THEJSIGNATURE); 
add Enumeration , Discrete 

ADD_l_TYPE_TO_REGION(REGION7, THE_SIGNATURE); 
ADD_l_TYPE_TO_REGION(REGION8, THE_SIGNATURE); 

elsif (CHARACTER_TYPE = TH E_ r TYTE_N A ME . S ) then 
ADD_ 1 _TYPE_TO_REGI ON (REGI ON4 , TH E_SIGN ATU RE) ; 

add Enumeration , Discrete 
ADD_l_TYPE_TO_REGION(REGION7, THEJSIGNATURE); 
ADD_l_TYPE_TO_REGION(REGION8, THEJSIGNATURE); 

elsif (INTEGER_TYPE = THE_TYPE_NAME.S) then 
ADD_lJITPEJTOJlEGION(REGION6 t THEJSIGNATURE); 
add Discrete 

AD D_ 1 _TYPE_TO_REGION (REGI ON8 , TH E_SI GN ATURE); 



elsif (RANGEJTYPE = THE_TYPE_NAME.S) then 
ADD_l_TYPE_TO_REGION(REG10N5, THEJSIGNATURE); 

add Integer , Discrete 

ADD_1_TYPE_TO_REG10N(REGI0N6, THEJSIGNATURE); 
ADD_l_TYPE_TO_REGION(REGION8,THE_SIGNATURE); 



elsif (N ATU RALJTYPE = THE_TYPE_NAME.S) then 
ADD_l_ r nTE_TO_REGION(REGION2 > THE_SIGNATURE); 

add Integer , Discrete 

ADD_l_TYPE_TO_REGION(REGION6, THEJSIGNATURE); 
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ADD_1JITPEJT0_REGI0N(REGI0N8,THE_SIGNATURE); 



elsif (POSm VE_TYPE = THE_TYPE_NAME.S) then 
ADD_1 _TYPE_TO_REGION (REGION 1 , THE_SIGNATURE); 

- add Natural , Integer , Discrete 

ADD_l_TYPE_TO_REGION(REGION2,THE_SIGNATURE); 
ADD_ l_TYPE_TO_REGION (REGION 6, THE_SIGN ATURE); 
ADD_1 _TYPE_TO_REGION (REGION 8 , THE_SIGN ATURE); 



elsif (ARRAY.TYPE = THE_TYPE_NAME.S) then 
ADD_1 _TYPE_TO_REGION(REGION 1 2, THE.SIGN ATURE); 

elsif (STRING.TYPE = THE_TYPE_NAME.S) then 
ADD_l_TYPE_TO_R£GION( REGION 1 1 , THE__SIGN ATURE); 
- add Array 

ADD_l_TYPE_TO_REGION( REGION 12, THE_SIGN ATURE); 



elsif (DIGITS_TYPE = THE_TYPE_NAME.S) then 
ADD_l_TYPE_TO_REGION(REGIONl 6, THE_SIGN ATURE); 

elsif (FLOATTYPE = THE_TYPE_NAME.S) then 
ADD_l_TYPE_TO_REGION(REGION15, THE_SIGN ATURE); 

- add Digits 

ADD_l_TYPE_TO_REGION(REGIONl 6, THE.SIGNATURE); 

elsif (DELTA.TYPE = THE_TYPE_N AME. S) then 
ADD_l_TYPE_TO_REGION(REGION14, THE JSIGN ATURE); 

elsif (FIXED_TYPE = THE_TYPE_NAME.S) then 
ADD_l_TYPE_TO_REGION(REGION 1 3, THE.SIGNATURE); 

- add Delta 

ADD_l_TYPE_TO_REGION(REGION14, THE.SIGNATURE); 

elsif (RECORD.TYPE = THE_TYPE_NAME.S) then 
ADD_l_TYPE_TO_REGION(REGION9, THE_SIGN ATURE); 

elsif (ACCESS_TYPE = THE_TYPE_NAME.S) then 
ADD_1_TYPE_TO_REGION(REGION10, THE.SIGN ATURE); 

else 

raise UNRECOGNIZED.TYPE; 
end if; 



end case; 



exception 

when UNRECOGNTZED__TYPE => 

PUT_LINE("*** ERROR *** CANNOT ENCODE SIGNATURE WITH "); 
PUT_LINE(TH E_TYPE_N AME. S & " BECAUSE IT IS AN”); 
PUT_LTNE("UNRECOGNIZED TYPE."); 
raise ; 
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when UNRECOGNIZED_GENERIC_TYPE => 

PUT_UNE("*** ERROR *** CANNOT ENCODE SIGNATURE WITH "); 
PUT_UNE(THE^TYPE_NAME.S & " BECAUSE IT CANNOT BE"); 
PUT_UNE( M A GENERIC TYPE.”); 

raise ; 



when others => 

PUT_UNE("*** UNKNOWN ERROR *** FOUND IN procedure "); 

PUT_LINE( M ADD_ADA_TYPE_TO_SIGNATURE. ,, ); 

raise ; 

end ADD_ADA_TYPE_TO_SIGNATURE; 
end ADD_ADA_TYPE_TO_SIGNATURE_PKG; 



********************************************************************************* 

********************************************************************************* 

********************************************************************************* 



— Filename / ADT_Parameter_Iterator_Pkg.a 

— Date / 30 August 93 

— Author / Scott Dolgoff 

— System / Sun SFARCstation 

— Compiler / Verdix Ada 

— Description / This program encodes the signatures of software 

/ ADT (type) components from their Prototype System 

with PSDL_ID_PKG, PSDL_CONCRETE_TYPE_PKG, ADD_ AD A_TYPE_TO_SIGN ATU RE_PKG , 
PSDL_COMPONENT_PKG; 

use PSDL_ID_PKG, PSDL_CONCRETE_TYPE_PKG, ADD_ADA_TYPE_TO_SIGNATURE_PKG, 

PS DL_COMPONENT_PKG; 

package ITERATE_THROUGH_ADT_OPERATOR_PARAMETERS_PKG is 

— procedure that allows this package additional access to the particular 

— ADT operator whose signature is being calculated. 

procedure PASS_ADT_OPERATOR(OP_COMPONENT : in PSDL_COMPONENT_PKG.OPERATOR); 

-- procedure passed to generic scan procedure in generic map package 

— extracts the input parameters from the Type Declaration 

— map 

procedure GET_IN_PARAMETER(ID : in PSDL_ID_PKG.PSDLJD; 

TYPE_NAME : in PSDL_CONCRETE_TYPE_PKG.TYPE_NAME); 

-- iterate through the Type Declaration map to extract the set of input 
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- parameters. 

procedure ITERATE_THROUGH_INPUT_PARAMETERS is new 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION_PKG.GENERIC_SCAN(GENERATE=>GET_IN_PAR 
AMETER); 



-- procedure passed to generic scan procedure in generic map package 

- extracts the output parameters from the Type Declaration 

- map 

procedure GET_OUT_PAR AMETER (ID : in PSDL_ID_PKG.PSDL_ID; 

TYPE_NAME : in PS DL_CON CRETE_TYPE_PKG .TYPE_N AME); 

-- iterate through the Type Declaration map to extract the set of output 

- parameters. 

procedure ITERATE_THROUGH_OUTPUT_PARAMETERS is new 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATTON_PKG.GENERIC_SCAN(GENERATE=>GET_OUT_PA 
RAMETER); 



-- Encoded input and output signatures are returned by these 

— procedures. NOTE: the procedure ITERATE_THROUGH_xxx_PARAMETERS 

- must be invoked first which encodes the signature value. 
procedure GETJNPUT_SIGNATURE(IN_SIGNATURE : out SIGNATURE); 
procedure GET_OUTPUT_SIGNATURE(OUT_SIGNATURE : out SIGNATURE); 



- *** This MUST be called prior to encoding an Operator or Type 

- Signature. Sets initial signatures to all 0's. IO_SWITCH 

- tells the procedure whether you need to initialize the input 
-- or output signature. 

procedure INTTI ALIZE_TH E_SIGN ATU RES (IO_S WITCH : IO_SWITCH_CLASSES); 



-- exceptions 

— the user defined type of an Operator input or output 

— parameter was not defined in the Prototype PSDL specification 
UNDEFINED_USER_DEFINED_TYPE : exception; 

-- the type used to define a user defined type is not a 

— valid Ada type 
INVALID_ADA_TYPE ; exception; 

end ITERATE_THROUGH_ADT_OPERATOR_PARAMETERS_PKG; 
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with TEXT JO, AD A_RECOGNIZED_TYPES_PKG , PSDL_PROGRAM_PKG, 
LOAD_PSDLJNTO_ADA_STRUCTUREJ > KG, TYPE_N AME_PKG , A.STRINGS; 
use TEXTJO, ADA_RECOGNIZED_TYPES_PKG, PSDL_PROGRAM_PKG, 

LO AD_PS DL_INTO_AD A_S TRU CTU RE_PKG , A.STRINGS; 

package body ITERATE_THROUGH_ADT_OPERATOR_PARAMETERS_PKG is 

INPUT.SIGNATURE, OUTPUT.SIGNATURE : SIGNATURE; 

GV_NAME, GV_UDT_NAME : PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 

PROT OTYPE_S PEC : PSDL_PROGRAM_PKG.PSDL_PROGRAM; 

MAIN_TYPE_COMPONENT, TYPE.COMPONENT : PSDL_COMPONENT_PKG.DATA_TYPE; 
OPERATOR_COMPONENT : PSDL_COMPONENT_PKG.OPERATOR; 



— procedure that allows this package additional access to the particular 

- ADT operator whose signature is being calculated. 

procedure PASS_ADT_OPERATOR(OP_COMPONENT : in PS DL_COMPONENT_PKG .OPERATOR) is 
begin 

OPERATOR_COMPONENT := OP_COMPONENT; 
end PASS_ADT_OPERATOR; 



-- Encoded input and closeness signatures are returned by this 

- procedure. NOTE: the procedure TTERATE THROUGH JNPUT PARAMETERS 

- must be invoked first which encodes the signature. 

procedure GET_INPUT_SIGNATURE(IN_SIGNATURE : out SIGNATURE) is 
begin 

IN.SIGNATURE := INPUT_SIGNATURE; 
end GETJNPUT.SIGNATURE; 



— Encoded output signature is returned by this 

procedure. NOTE: the procedure 

ITERATE THROUGH OUTPUT PARAMETERS 

- must be invoked first which encodes the signature. 

procedure GET_OUTPUT_SIGNATURE(OUT_SIGNATURE : out SIGNATURE) is 



begin 



OUT_SIGNATURE := OUTPUT.SIGNATURE; 
end G ET_OU TPUT_S IGN ATURE ; 
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— initializes or resets signatures so new ones can be computed 

procedure INTnALIZE_THE_SIGNATURES(10_SWITCH : IO_SWITCH_CLASSES) is 



begin 



case IO_S WITCH is 



when INPUT_PARA METER => 

IOTIIAIJra_SIGN ATURES(INPUT_SIGN ATU RE) ; 

when OUTPUT.PARAMETER => 

INITLAUZE_SIGNATURES(OUTPUT_SIGNATURE); 



end case; 

end INITIAUZE_THE_SIGNATURES; 



— input parameter must be a user defined type so we must look 

— up its Ada type representation by extracting the 

— user defined type from the prototype PSDL specification 

procedure GET_U SER_DEFINED_TYPE(THE_TYPE_NAME : 

PSDL_CONCRETE_TYPE_PKG .TYPE_N AME; 

UDT_TYPE_NAME in 

PSDL_CONCRETE_TYPE_PKG.TYPE_NAME) is 
TYPE_MODEL : PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION; 



begin 



- retrieve the type component specification 

TYPE_COMPONENT := PS DL_PROGRAM_PKG . FETCH( PROTOTYPE_SPEC , 
THE_TYPE_NAME.NAME); 
if TYPE_COMPONENT = null then 
GV.NAME := THE_TYPE_NAME; 
raise UNDEFINED_USER_DEFINED_TYPE; 
end if; 

— get the corresponding Ada type of the user defined type 

TYPE_MODEL := PSDL_COMPONENT_PKG.MODEL(TYPE_COMPONENT); 

UDT_TYPE_N AME := 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION_PKG.FETCH(TYPE_MODEL ) 

THE_TYPE_NAME.NAME); 

— Ensure type was defined. If not, then nothing was fetched. 

if TYPE_NAME_PKG."=" (UDT_TYPE_NAME, TYPE_NAME_PKG.NULL_TYPE) then 
GV_NAME := THE_TYPE_NAME; 
raise UNDEFINED_USER_DEFINED_TYPE; 
end if; 



in 

out 
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- type of the UDT must be a valid Ada type 

if not RECOGNIZED_ADA_TYPE(UDT_TYPE_NAME.NAME) then 
GV_NAME := THE_TYPE_NAME; 

G V_UDT_N AME := UDT_TYPE_NAME; 
raise INV ALID_AD A_TYPE; 
end if; 

end GET_USER_DEFINED_TYPE; 



— Search through the type _declaration section of the ADT to see 

— if the Ada type we are looking for is defined as one of the 

— Type's ADTs. 

procedure CHECK. ADT_ADTS(THE_TYPE_NAME : in PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 

ADT_TYPE_N AME : in out PS DL.CON C RETE_TYPE_PKG.TYPE_N AME; 
FOUND.TYPE : out BOOLEAN) is 

TYPE.MODEL : PS DL.CON C RETE_TYPE_PKG.TYPE_D EC L ARATION ; 
begin 



— use the Type component 

TYPE.COMPONENT := MAIN_TYPE_COMPONENT; 



— try to get the corresponding Ada type of the unknown type 

TYPE.MODEL := PSDL_COMPONENT_PKG.MODEL(TYPE_COMPONENT); 



ADT_TYPE_N AME := 

PSDL_CONCRETE_TYPE_PKG.TTPE_DECLARATION_PKG.FETCH( r nTE_MODEL t 
THE_TYPE_N AME.N AME); 

- Ensure type was defined . If not , then nothing was fetched . 
if TYPE_NAME_PKG. M =" (ADT_TYPE_NAME, TYPE_NAME_PKG.NULL_TYPE) then 
FOUND.TYPE := FALSE; 
else 

FOUND_TYPE := TRUE; 



— type of the ADT must be a valid Ada type 

if not RECOGNIZED_ADA_TYPE(ADT_TYPE_N AME.N AME) then 
GV.NAME := THE_TYPE_NAME; 

GV_UDT_NAME := ADT_TYPE_NAME; 
raise INVALID_ADA_TYPE; 

end if; 

end if; 

end CHECK_ADT_ADTS; 
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-- Looks through the generic parameters of a Type or Operator to 
~ see if an unrecognized type is defined as an Ada type there . 

procedure CHECK_GENERICS(COMPONENT : in out PSDL_COMPONENT_PKG.PSDL_COMPONENT; 

UNKN 0 WN_TYPE_N AME : in out 

PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 

GENERIC_TYPE_N AME : in out PSD L_CONCRETE_TYPE_PKG.TYPE_N AME; 
FOUND.TYPE : out BOOLEAN) is 

GENERIC.MODEL : PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION ; 

COMP_NAME : PSDL_ID_PKG.PSDL_ID; 



begin 



- Get the generic parameters. 

GENERIC.MODEL := PSDL_COMPONENT_PKG.GENERIC_PARAMETERS(COMPONENT); 

if not PSDL_CONCRETE_TYPE_PKG.EQUAL(GENERIC_MODEL, 
PSDL_CONCRETEJTYPE_PKG.EMPTY_TYPE_DECLARATION) then 

- get the corresponding Ada type of the corresponding unknown type 

GENERIC_TYPE_NAME := 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION_PKG.FETCH(GENERIC_MODEL, 

UNKNOWNJTYPE_NAME.NAME); 

-- Ensure unknown type was defined . If not, then nothing was fetched. 
if TYPE_NAME_PKG."=" (GENE RIC_TYPE_N AME, TYPE_NAME_PKG.NULL_TYPE) then 
~ will have to check something other then generics 
FOUND_TYPE := FALSE; 

else 

— type of the GENERIC must be a valid Ada type 

if RECOGNIZED_ADA_TYPE(GENERIC_TYPE_NAME.NAME) then 
FOUNDJTYPE := TRUE; 
else 

GV.NAME := UN KN OWN_TYPE_N AME; 

GV_U DT.NAME := GENERIC_TYPE_NAME; 
raise INV ALID_ AD A_TYPE; 
end if; 
end if; 



else 

-- will have to check something other then generics 
FOUND.TYPE := FALSE; 
end if; 

end CHECK_GENERICS; 



procedure ENCODE. ADA_TYPE_INTO_SIGNATURE(TYPE_NAME_ID : in PSDL_ID_PKG.PSDL_ID; 

IO_S WITCH ; in IO_SWITCH_CL ASSES; 
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GENERIC JTYPE : in BOOLEAN) is 



begin 

case IO_S WITCH is 



when INPUT_PARAMETER => 

ADD_AD A_TYPE_TO_SIGN ATURE(TYPE_N AME_ID , INPUT_SIGN ATURE, IO_SWITCH, 
GENERIC.TYPE); 



when OUTPUT_PARAMETER => 

ADD^ADA_TTPE_TO_SIGNATURE(TYPE_NA!vlE_ID, OUTPUT^SIGNATURE, 10 _S WITCH, 
GENERIC.TYPE); 



end case; 



end ENCODE_AD A_TYPE_INTO_S IGN ATURE; 



-- procedure passed to generic scan procedure in generic map package 

- extracts the input parameters from the Type Declaration 

- map. NOTE that this procedure will be run once for each input 

- parameter as the entire set of input parameters is iterated through. 

procedure GET_IN_PARAMETER(ID : in PSDL_ID_PKG.PSDL_ID; 

TYPE_NAME : in PSDL_CONCRETE_TYPE_PKG .TYPE_N AME) is 

ADT_TYPE_N AM E , G ENERIC_TYPE_N AM E , TH E_TYPE_N AME , UDT_TYPE_NAME : 
PSDL_CON CR£TE_TYPE_PKG .TYPE_NAME; 

- User Defined Type (UDT) type name 

io_switch : 

IO_SWITCH_C LASSES; 

GENERIC.TYPE, FOUND.TYPE : BOOLEAN; 



begin 

IO_S WITCH := INPUT.PARAMETER; 

THE_TYPE_N AME := TYPE_NAME; 

GENERIC_TYPE := FALSE; 

if RECOGNIZED_ADA_TYPE(THE_T\TE_NAME.NAME) then 

-- Input parameter is a valid Ada type so go ahead and encode 

- the current Input _Sig nature with this Ada type. 

TH E_TYPE_N AM E.N AME := A_STRINGS.LOWER_TO_UPPER(THE_TYPE_NAME.NAME); 
ENCODE_ADA_TYPE_INTO_SIGNATURE(THE_TYPE_NAME.N.4ME, IO_SWITCH, 
GENERIC_TYPE); 

else 

— Maybe the parameter is defined in the generics of the 



178 



-- Operator component. 

CHECK_GENERICS(OPERATOR_COMPONENT, TH E_TYPE_N AM E , GENERIC_TYPE_NAME, 
FOUND_TYPE); 

if FOUND_TYPE then 

UDT_TYPE_NAME := GENERIC_TYPE_NAME; 

GENERIC_TYPE := TRUE; 



- Maybe the parameter is defined in the generics of the 

— Type component. 

CHECK_GENERICS(MAIN_TYPE_COMPONENT, THE_TYPE_NAME, GENERIC_TYPE_NAME, 
FOUND_TYPE); 

if FOUND_TYPE then 

UDT_TYPE_N AME := GENERIC_TYPE_NAME; 

GENERIC_TYPE := TRUE; 



else 

— Maybe the parameter is defined in the type jdeclaration 

— block of the Type component (i.e. it is one of the Type 

— component's ADTs. 

CHECK_ADT_ADTS(THE_TYPE_NAME, A D T_TYPE_N AME , FOUND.TYPE); 

if FOUNDJTYPE then 
UDT_TYPE_NAME := ADT_TYPE_N AME; 



else — The parameter must be a user defined type so 
— get its type. 

GET_USER_DEFINED_TYPE(THE_TYPE_NAME, UDT_TYPE_NAME); 

end if; 
end if; 
end if; 



UDT_TYPE_NAME.NAME := A_STRJN GS . LO WER_TO_U PPER( UDT_TYPE_N AM E.N AM E); 
-- go ahead and encode into the current Input ^Signature. 
ENCODE_ADA_TYPE_INTO_SIGNATURE(UDT_TYPE_NAME.NAME, IO_SWITCH, 
GENERIC_TYPE); 



end if; 



exception 



when UNDEFINED_U SER_DEFIN ED_TYPE => 

PUT_LJNE("*** ERROR: " & GV_NAME.NAME.S & " IS A USER DEFINED"); 
PUT_LINE("TYPE THAT IS NOT DEFINED IN THE PROTOTYPE PSDL"); 
PUT_UNE("SPECIFICATION. THIS MEANS IT IS EITHER NOT INCLUDED"); 
PUT_LINE("AS A SEPARATE TYPE SPECIFICATION, OR IF IT IS, IT IS"); 
PUT_UNE("NOT DEFINED AS AN ADA TYPE WITHIN THE TYPE SPECIFICATION"); 
PUTUNEOIT IS ALSO POSSIBLE THAT EITHER ’ARRAY_ELEMENT OR"); 
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PUT JJNEC"’ ARRAY JNDEX' WAS REQUIRED BUT NOT USED AS IDENTIFIERS. ”); 

NEW_LINE; 

raise ; 



when INVALID_ADA_TYPE => 

PUT_LINE("*** ERROR: INVALID ADA TYPE DISCOVERED FOR - H ); 

PUT_UNE(" " & GV_NAME.NAME.S & ” : " & GV_UDT_NAME.NAME.S); 
PUT.UNETA Type MUST BE DEFINED AS AN ADA TYPE. IT CAN REFERENCE"); 
PUT_LINE( "INFORMATION IN ITS GENERIC PARAMETERS, BUT CANNOT"); 
PUT_LINE( "REFERENCE DEFINITION INFORMATION OUTSIDE ITS OWN"); 
PUT_LINE("SPECIFICA r nON. A Generic PARAMETER MUST BE FULLY ”); 
PUT_UNE("DEFINED AS AN ADA TYPE. IT CANT EVEN REFERENCE OTHER "); 
PUT_LINE(" DEFINITIONS WITHIN ITS GENERICS."); 

NEWSLINE; 
raise ; 



when ADD_ADA_TYPE_TO_SIGNATURE_PKG.UNRECOGNIZED_TYPE => 
raise ; 



when others => 

PUTJJNEC*** UNKNOWN ERROR: OCCURED IN procedure "); 
PUT_LINE(" GET_IN_PARAMETER. "); 

NEWSLINE; 
raise ; 



end GET_IN_PARAMETER; 



- procedure passed to generic scan procedure in generic map package 

- extracts the output parameters from the Type Declaration 

- map. NOTE that this procedure will be run once for each output 

- parameter as the entire set of output parameters is iterated through. 

procedure GET_0UT_PARAMETER(1D : in PSDL_ID_PKG.PSDL_ID; 

TYPE.NAME : in PS DL_CONCRETE_TYPE_PKG.TYPE_N AME) is 

ADT_TYPE_NAME, GENER1C_TYPE_NAME, THE_TYPE_NAME, UDT_TYPE_NAME : 
PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 

-- User Defined Type (UDT) type name 

IO_S WITCH 

IO_SWITCH_CLASSES; 

GENERIC.TYPE, FOUND.TYPE : BOOLEAN; 



begin 

IO.SWITCH := OUTPUT, PARAMETER; 

THE_TYPE_NAME := TYPE.NAME; 

GENERIC.TYPE := FALSE; 

if RECOGNIZED_ADA_TYPE(THE_TYPE_NAME.NAME) then 

— Output parameter is a valid Ada type so go ahead and encode 

— into the current Output ^Signature. 
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THE_TYPE_NAME.NAME := A_STRINGS.LOWER_TO_UPPER(THE_TYPE_NAME.NAME); 
ENCODE_ADA_TYPE_INTO_SIGNATURE(THE_TYPE_NAME.NAME, IO_SWITCH, 
GENERIC.TYPE); 

else 

— Maybe the parameter is defined in the generics of the 
~ Operator component. 

CHECK_GENERICS(OPERATOR_COMPONENT, THE_TYPE_NAME, GENERIC_TYPE_NAME, 
FOUND.TYPE); 

if FOUND_TYPE then 

UDT_TYPE_NAME := GENERIC JTYPE_N AME; 

GENERIC.TYPE := TRUE; 



else 

— Maybe the parameter is defined in the generics of the 

- Type component. 

CHECK_GENERICS(MAIN_TYPE_COMPONENT, THE.TYPE.NAME, GENERIC_TYPE_NAME, 
FOUND.TYPE); 

if FOUND_TYPE then 

U DT_TYPE_N AME := GENERIC_TYPE_NAME; 

GENERIC_TYPE := TRUE; 

else 

-- Maybe the parameter is defined in the type_declaration 

— block of the Type component (i.e. it is one of the Type 

— component’s ADTs. 

CHECK_ADT_ADTS(THE_TYPE_NAME, ADTTYPE_NAME, FOUND.TYPE); 

if FOUNDJTYPE then 
U DT_TYPE_N AME := A DT_TYPE_N AME; 



else — The parameter must be a user defined type so 
— get its type. 

GET_U SER_DEFINED_TYPE(TH E_TYPE_N AME. U DT_TYPE_N AME) ; 

end if; 
end if; 
end if; 



UDT_TYPE_NAME.NAME := A_STRINGS.LOWER_TO_UPPER(UDT_TYPE_NAME.NAME); 

— Go ahead and encode. 

ENCODE. ADA_TYPE_INTO_SIGNATURE(UDT_TYPE_NAME.N AME, IO.SWTTCH, 
GENERIC.TYPE); 
end if; 



exception 
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when UNDEFINED JJ SER_DEFINED_TYPE => 

PUTJJNEf*** ERROR: ” 8c GV_NAME.NAME.S 8c "IS A USER DEFINED”); 
PUTJJNEfTYPE THAT IS NOT DEFINED IN THE PROTOTYPE PSDL”); 
PUTJJNEfSPECIFICATION. THIS MEANS IT IS EITHER NOT INCLUDED”); 
PUT_LINE(”AS A SEPARATE TYPE SPECIFICATION, OR IF IT IS, IT IS”); 
PUTJJNEfNOT DEFINED AS AN ADA TYPE WITHIN THE TYPE SPECIFICATION”); 
PUTJJNE(TT IS ALSO POSSIBLE THAT EITHER 'ARRAY_ELEMENT OR”); 
PUTJJNE('”ARRAY JNDEX’ WAS REQUIRED BUT NOT USED AS IDENTIFIERS.”); 
NEWJJNE; 
raise ; 



when INVALID_ADA_TYPE => 

PUTJJNE(”*** ERROR: INVALID ADA TYPE DISCOVERED FOR -”); 

PUTJJNE(” ” 8c GV_NAME.NAME.S 8c":" 8c GVJJDTJIAME.NAME.S); 
PUTJJNEf A Type MUST BE DEFINED AS AN ADA TYPE. IT CAN REFERENCE”); 
PUTJJNEflNFORMATION IN ITS GENERIC PARAMETERS, BUT CANNOT”); 
PUT_LINE(”REFERENCE DEFINITION INFORMATION OUTSIDE ITS OWN”); 
PUTJJNEfSPECIFICATION. A Generic PARAMETER MUST BE FULLY ”); 

PUT JJNE( "DEFINED AS AN ADA TYPE. IT CANT EVEN REFERENCE OTHER ”); 
PUTJJNE(”DEFINTnONS WITHIN ITS GENERICS.”); 

NEWJJNE; 
raise ; 

when ADD_AD A_TYPE_TO_SIGN ATURE_PKG . UNRECOGNIZED_TYPE => 
raise ; 



when others => 

PUTJJNE(”*** UNKNOWN ERROR: OCCURED IN procedure ”); 
PUT_LINE(” GET_OUT_PARAMETER. ”); 

NEWJJNE; 
raise ; 

end GET_OUT_PARAMETER; 



BEGIN MAIN 



begin 



— Provides access to the stored Type component. 

RETRIEVE_TYPE_COMF*ONENT(MAIN_TYPE_COMPONENT); 

— Provides access to the stored prototype specification. 

RETRIEVE_PROTOTYPE_SPEC(PROTOTYPElsPEC); 



end rTERATE_THROUGH_ADT_OPERATOR_PARAMETERS_PKG: 
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********************************************************************************* 

********************************************************************************* 

********************************************************************************* 



-- Filename / BuiId_Operator_Wrapper_Pkg.a 

- Date / 3 Sep 93 

— Author / Scon Dolgoff 

— System / Sim SPARCstation 
-- Compiler / Verdix Ada 

- Description / TVi/s package creates a "wrapper" package for a 

/ software base component that allows the component 
/ to be integrated into a CAPS prototype system. 



with PARAMETER_UST_PKG; 
use PARAMETER_UST_PKG; 



package BUILD_OPERATOR_WRAPPER_PKG is 



-- creates the transformation shell from the valid final mapping 
-- between query and software base components. This shell becomes 

- the Ada package the prototype designer works with. 

procedure BUILD_OPERATOR_WRAPPER(QC_IN_PARAM_UST : in PARAMETERS; 

QC_OUT_PARAM_UST : in PARAMETERS; 
SBCJN_PARAM_LIST : in PARAMETERS; 
SBC_OUT_PARAM_LIST : in PARAMETERS; 
GEN_PARAM_UST : in PARAMETERS; 
QC_OPERATOR_NAME : in STRING; 

SB C_OPERATOR_N AME : in STRING); 



end BUILD_OPERATOR_WRAPPER_PKG; 



with TEXT_IO, ADA_RECOGNIZED_TYPES_PKG, PSDL JD_PKG; 
use TEXTJO, ADA_RECOGNIZED_TYPES_PKG, PSDL_ID_PKG; 

package body B UILD_OPERATOR_WRAPPER_PKG is 

-- create structure for eliminating duplicate "with" statements 
- or duplicate type declarations 

type NODE; 
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type DUP_PTR is access NODE; 

type NODE is record 

ID : PSDL_ID_PKG.PSDL.ID; 
NEXT : DUP_PTR := null; 



end record; 



FILE.PREFDC : STRTNG(1 .. 6) := "proto."; 

FILE.SUFFIX : STRING(1 .. 2) := ".a"; 

SB C.PKG.S UFFTX : STRING(1 ..3) := "_SB"; 

PKG.SUFFIX : STRING(1 .. 4) := "_PKG"; 
GENERIC_PKG_PREFIX : STRING(1 .. 4) := "TMP_"; 
DUMMY.SUFFIX : STRING(1 .. 6) := ".DUMMY"; 
ARRAY.SUFFIX : STRING(1 .. 6) := ".ARRAY"; 

THE.FILE : FILE.TYPE; 

SBC.IS.GENERIC : BOOLEAN := FALSE; 

-- used to align parameters in procedure declarations 

STDJD_MAX_LENGTH : constant INTEGER := 25; 



-- print out blank spaces 

procedure SPACES(COUNT : in INTEGER) is 
begin 

if COUNT >0 then 
for INDEX in 1 .. COUNT loop 
PUT(THE_FILE, " "); 
end loop; 
end if; 

end SPACES; 



-- determines whether the specified ID is already represented in 
— the list. If it is not, then it is added to the list. 

procedure ADD_WITH_MEMBER(NAME ; in PSDL_ID_PKG.PSDL_ID; 

HEAD : in out DUP_PTR) is 

PTR : DUPJ’TR := HEAD; 

INSERT : DUP_I>TR; 
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NOT_A_MEMBER : BOOLEAN := TRUE; 



begin 

if (HEAD = null) then 

— initialize 

HEAD := new NODE; 

HEAD .ID ;= NAME; 



— see if ID is already in the list 
while ((PTR /= null) and (NOT_A_MEMBER)) loop 
if (PTR.ID.S = NAME.S) then 

— it's a duplicate 

NOT_ A_MEMB ER := FALSE; 
end if; 

INSERT := PTR; 

PTR := PTR.NEXT; 

end loop; 

if NOT_A_MEMBER then 

— add to list 

INSERT.NEXT := new NODE; 

INSERT. NEXT. ID := NAME; 

end if; 

end if; 

end ADD_WITH_MEMBER; 



— builds a list of all input and output parameter identifiers 

— which is used to ensure no duplicate "with'' statements are 

— made 

function BUILD_WITH_UST(IN_PARAM : PARAMETERS; 

OUT_PARAM : PARAMETERS) return DUP_PTR is 

IN_PTR ; PARAMETERS ;= IN_PARAM; 

OUT_PTR : PARAMETERS ;= OUT_PARAM; 

HEAD_PTR : DUP_PTR := null; 



begin 

while (IN_PTR /= null) loop 
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if IN_PTR.H AS_UDT then 

ADD_WITH_MEMB ER(IN_PTR. UDT, HEAD.PTR); 

elsif (IN_PTR.THE_TYPE.S = ARRAY.TYPE) then 

- not a UDT but maybe an array with components defined 
~ by UDTs 

if IN_PTR . ARRA Y_E LEM ENT_PTR . H AS_U DT then 
ADD_WITH_MEMBERCIN_PTR.ARRAY_ELEMENT_PTR.UDT, HEAD.PTR); 
end if; 

if IN_PTR.ARRAY_INDEX_PTR.HAS_UDT then 

ADD_WITH_MEMB ER(IN_PTR. ARRAY_INDEX_PTR.UDT, HEAD_PTR); 

end if; 
end if; 

IN_PTR := IN.PTR.NEXT; 
end loop; 

while (OUT_PTR /= null) loop 
if OUT_PTR.HAS_UDT then 

ADD_WITH_MEMBER(OUT_PTR.UDT, HEAD_PTR); 
elsif (OUT_PTR.THE_TYPE.S = ARRAY_TYPE) then 

- not a UDT but maybe an array with components defined 

- by UDTs 

if OUT_PTR.ARRAY_ELEMENT_PTR.HAS_UDT then 

ADD_WITH_MEMBER(OUT_PTR.ARRAY_ELEMENT_PTR.UDT, HEAD_PTR); 
end if; 

if OUT_PTR.ARRAY_INDEX_FTR.HAS_UDT then 

ADD_WITH_MEMBER(OUT_PTR.ARRAY_INDEX_PTR.UDT, HEAD.PTR); 

end if; 
end if; 

OUT_PTR := OUTJTR.NEXT; 
end loop; 
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return HEAD_PTR; 
end BUILD_WITH_UST; 



-- write any "with" statements required due to user defined 
- types (UDTs) and software base component inclusion 

procedure WRITE_WITH_STATEMENTS(SBC_OPERATOR_NAME : in STRING; 

PARAM_LIST : in DUP_PTR) is 



PTR : DUP_PTR := PARAM_LIST; 



begin 



PUT_LINE(THE_FILE, "with " & SBC_OPERATOR_NAME & SBC_PKG_SUFHX & 
PUT_UNE(THE_FILE, "use " & SBC_OPERATOR_N AME & SBC_PKG_SUFFIX & 



while PTR /= null loop 



PUT_UNE(TH E_FILE, "with " & PTR.ID.S & PKG.SUFHX & 
PTR := PTR. NEXT; 



end loop; 

NEWJJNE(THE_FILE, 2); 
end WRITE_WITH_STATEMENTS ; 



- write package declaration 

procedure WRITE_PACKAGE_DECLARATION(QC_OPERATOR_NAME ; in STRING) is 
begin 

PUTJJNE(THE_FILE, "package " & QC_OPERATOR_N AME & PKG_SUFFIX & " is"); 
NEW_LINE{THE_FILE) ; 

end WRITE_PACKAGE_DECLARATION; 



-- write package body declaration 

procedure WRITE_PACKAGE_BODY_DECLARATION(QC_OPERATOR_NAME : in STRING) is 
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begin 



PUT_UNE(THE_FILE, 

Pirr_UNE(THE_FILE, 

PITT_LINE(THE_FILE, 



PACKAGE BODY 




NEWJJNE(THE_FILE, 3); 

PUT_UNE(THE_FILE, "package body " & QC_OPERATOR_NAME & PKG_SUFFIX & ” is"); 
NEW_LINE(THE_FILE); 

end WRITE_PACKAGE_BODY_DECLARATION; 



— write the package end statement (for spec or body) 

procedure WRITE_END_OF_PACKAGE(QC_OPERATOR_NAME : in STRING) is 



PUT_LINE(THE_FILE, "end M & QC_OPERATOR_NAME & PKG.SUFFIX & ";”); 
NEW_LENE(TH E_FILE, 3); 

end WRITE_END_OF_PACKAGE; 



- writes the new y package that is the result of the generic 

— instantiation 

procedure WRITE_GENERIC_INSTANnATION(QC_OPERATOR_NAME : in STRING; 



PirrjJNE(THE_FILE, ” package M & GENERIC_PKG_PREFIX & QC_OPERATOR_NAME & 
PKG.SUFFTX & " is new " & SB C_OPER ATOR_NAME & SBC_PKG_SUFFIX & "("); 
while (PTR /= null) loop 

PUT(THE_FTLE, " "); 

PUT(THE_FILE, PTR.ID.S & " => "); 

if (PTR.mapping.has_udt) then — qc parameter defined by UDT 

PUT(THE_FILE, PTR.MAPPING.UDT.S & PKG_SUFFIX & & PTR.MAPPING.UDT.S); 



begin 



SBC_OPERATOR_NAME : in STRING; 
GEN_PARAM_LIST : in PARAMETERS) is 



PTR : PARAMETERS := GEN.PARAM JUST; 



begin 
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elsif (PTR.MAPPING.THEJTYPE.S = ARRAY.TYPE) then 



PUT(THE_FILE, PTR. MAPPING. ID. S & ARRAY.SUFFDC); 

else 

PUT(THE_FLLE, PTR.MAPPING.THE_TYPE.S); 
end if; 

PTR := PTR .NEXT; 
if (PTR /= null) then 

PUTJJNE(THE_FILE, 

else 

PUTJINE(THE_FTLE, 
end if; 

end loop; 

end WRITE J3ENERICJNST ANTI ATION, 



-- define an array type declaration 

procedure WR]TE_ARRAY_TYPE_DECL(NAME : in STRING; PTR : in PARAMETERS) is 



begin 

PUT(THE_FILE, " type ” & NAME & ARRAY.SUFFIX & " is anay ("); 

- write the array index 

if PTRDEFINED_BY_GENERIC_TYPE then 

- refer to the qc parameter that instantiated the generic 

if PTR.GENERIC_IJNK.MAPPING.ARRAY_INDEX_PTR.HAS_UDT then 

PUT(THE_FTLE, ITR.GENERIC_LINK.N1APPING.ARRAY_INDEX_PTR.UDT.S & PKG.SUFFIX & 
H . H & PTR.GENERIC_LINK.MAPPING.ARRAY_INDEX_PTR.UDT.S & ") of ”); 



else 

PUT(THE_FILE, PTR .GENERIC.UNK. MAPPING. ARRAY_INDEX_PTR.THE_TYPE.S & 
") of "); 



end if; 



else - array index not defined by a generic 

if PTR. ARRAY_INDEX_PTR.H ASJJDT then 

PUT(THE_FILE, PTR.ARRAY_INDEX_PTR.UDT.S & PKG.SUFFIX & & 

PTR.ARRAY_INDEX_PTR.UDT.S & ") of "); 



else 

PUT(THE_FILE, PTR.ARRAY_INDEX_PTR.THE_TYPE.S & M ) of ’'); 



end if; 
end if; 
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— write the array element 

if PTR.DEFTNED_BY_GENERIC_TYPE then 

~ refer to the qc parameter that instantiated the generic 

if PTR.GENERIC_UNK.MAPPING.ARRAY_ELEMENT_PTR.H AS _UDT then 

PUT(THEJFILE, PTR.GENERIC_LINK.MAPPING.ARRAY_ELEMENT_PTR.UDT.S & PKG_SUFFIX 

& 

& PTR . G ENERJ C_UNK .M APPIN G . ARRA Y_ELEM ENT_PTR . UD T. S & 



else 

PUT(THE_FILE, PTR. GENERIC JJNK. MAPPING. ARRA Y_ELEMENTJ D TR.THEJTYPE.S & 

":"); 



end if; 



else — array element not defined by a generic 

if PTR.ARRAY_ELEMENT_PTR.HAS_UDT then 

PUT(THE_FILE, PTR.ARRAY_ELEMENT_PTR.UDT.S & PKG_SUFFIX & & 

PTR. ARRA Y_ELEMENT_PTR.UDT.S & 



else 

PUT(THE_FILE, PTR. ARRA Y_ELEMEOT_PTR.THE_TYPE.S & 

end if; 
end if; 

NEW_LINE(THE_FILE); 
end WRITE_ARRAY_TYPE_DECL; 



-- write software base component type declaration 

— it is only needed for dummy output parameters 

procedure W RITE_SB C_TYPE_D EC L ARATION( PTR_ VAR : in PARAMETERS) is 

PTR : PARAMETERS := PTR_VAR; 
begin 

while (PTR /= null) loop 

if ((PTR .MAPPING = null) and (not PTR.DEFINED_BY_GENERIC_TYPE)) then 

-- unmatched, therefore must be a dummy output parameter 

— if it is defined by a generic, then we don't need to 

— declare it because we will refer to the instantiation 

— parameter in the query component 
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— see if it's an array 

if (PTR.THE_TYPE.S = ARRAY_TYPE) then 
PUT(THE_FILE, " "); 

WRITE. ARRAY_TYPE_DECL(PTR.ID.S, PTR), 
end if; 



end if; 

PTR := PTR. NEXT; 
end loop; 

end WRITE_SBC JIYPE_DECL ARATION ; 



— write query component type declaration 

procedure WRITE_QC_TYPE_DECLARATION(PTR_VAR : in PARAMETERS) is 
PTR : PARAMETERS := PTR.VAR; 
begin 

while (PTR /= null) loop 



-- see if it's an array 

- however, if it is an array and defined by a UDT then 

- the array type is already defined and we don't need 

- a type declaration for it 

if ((PTR.THE.TYPE.S = ARRAY.TYPE) and (not PTR.HAS.UDT)) then 
WR] TE_ A RRA Y_TYPE_D EC L( PTR IDS, PTR); 
end if; 

PTR := PTR.NEXT; 
end loop; 

end WRITE_QC JTYPE_DEC L ARATION ; 



— Call the software base component Operator procedure. 

-- The order of the parameters must exactly match the software 

— base component PSDL specification. Dummy parameters have been 
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- predeclared (outputs only are possible) using the formal name 

- used by the software base component. 

procedure WRITE_CALL_SBC_PROCEDURE(QC_OPERATOR_NAME : in STRING; 

SB C_OPERATOR_N AME : in STRING; 

SB C_IN_PARAM_LIST : in PARAMETERS; 
SBC_OUT_PARAM_LIST : in PARAMETERS) is 



PTR : PARAMETERS; 



begin 



PUT(THEJFILE, " "); 

if SBCJS_GENERIC then 

PUT_LINE(THE_FILE, GENERIC_PKG_PREFIX & QC.OPERATO R_N AME & PKG_SUFFIX & 
,, . M & SB C_OPERATOR_N AME & T); 
else 

PUT_LINE(TH E__FILE, SBC_OPERATOR_NAME & SBC_PKG_SUFFIX & M . M & 
SBCJDPERATOR_NAME & 
end if; 



— input parameters 
PTR := SBC_IN_PARAM_UST; 
while (PTR /= null) loop 

PUT(THE_FILE, M M ); 

PUT(THE_FILE, PTR.MAPPING.ID.S); 

PTR := PTR .NEXT; 
if (PTR /= null) then 

PUTJLJNE(THE_FILE, , 7); 

else 

if (SB C_OUT_PARAM_LJST = null) then 
PUT_LINE(TH E_FILE , ”);”); 
else 

PUT_LJNE(THE_FILE, M , H ); 
end if; 
end if; 

end loop; 



— output parameters 
PTR := S B C_OUT_PARAM_LI ST ; 
while (PTR /= null) loop 

PUT(THE_FILE, " "); 

if (PTR.MAPPING = nuU) then 

-- dummy output parameter 

PUT(THE_FILE, PTR.ID.S & D U MM Y_S U F FIX ) ; 

else 

PUT(THE_FILE, PTR.MAPPING.ID.S); 
end if; 

PTR := PTR NEXT; 
if (PTR /= null) then 
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PUTJJNE(THE_HLE, V); 

else 

PUT_UNE(THE_FILE, 
end if; 

end loop; 

NEWJJNE(THE_F1LE); 
end WRITE_CALL_SBC_PROCEDURE; 



- define procedure specification 

- The order of the parameters only needs to match up with the 

- query PSDL specification since it's the implementation portion 

- of this procedure that will actually invoke the software base 

- component Operator procedure. 

procedure WRITE_PROCEDURE_SPEC(QC_OPERATOR_NAME : in STRING; 

QC JN.PARAMJJST : in PARAMETERS; 
QC_OUT_PARAM_LIST ; in PARAMETERS) is 

PTR : PARAMETERS; 
begin 

NEW_UNE(THE_FTLE); 

PUT_LINE(TH E_FTLE, M procedure ” & QC_OPERATOR_NAME & 

- input parameters 
PTR := QC JN_PARAM _LIST; 
while (PTR /= null) loop 

PUT(THE_FTLE, ” ”); 

PUT(THE_FILE, PTR.ID.S); 

SPACES(STD_ID_MAX_LENGTH - PTR.ID.S’LENGTH); 

PUT(THE_FILE, M : in M ); 

if (PTR.HAS_UDT) then -- qc parameter defined by UDT 

PUT(THE_FILE, PTR.UDT.S & PKG_SUFFIX & & PTR.UDT.S); 

elsif (PTR.THE.TYPE.S = ARRAY.TYPE) then 

- use defined array type declaration 

PUT(THE_FILE, FTR.ID.S & ARRAY.SUFFIX); 



else 



PUT(THE_FILE, PTR.THE_TYPE.S); 
end if; 

PTR := PTR .NEXT; 
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if (PTR /= null) then 

PUT_LINE(THEJTLE, ";"); 

else 

if (QC_OUT_PARAM_LIST = null) then 
PUT JJNE(TH E_FILE t ");"); 
else 

PUTJJNE(THE_FILE, ";’’); 
end if; 
end if; 

end loop; 



— output parameters 

PTR := QC_OUT_PARAM_LIST ; 
while (PTR /= null) loop 

PUT(THE_FILE, ” "); 

PUT(THE_FILE, PTR.ID.S); 

S PACES (STD_ID_MAX_LENGTH - PTR.ID.S’LENGTH); 
PUT(THE_FILE, " : out M ); 

if (PTR.hasjjdt) then -- qc parameter defined by UDT 

PUT(THE_FILE, PTR.UDT.S & PKG_SUFFIX & & PTR.UDT.S); 

elsif (PTR.THE_TYPE.S = ARRAY.TYPE) then 

- use defined array type declaration 

PUT(THE_FILE, PTR.ID.S & ARRAY_SUFFIX); 

else 

PUT(THE_FILE, PTR .TH E_TYPE . S ); 
end if; 

PTR := PTR .NEXT; 
if (PTR /= null) then 

PUTJJNE(THE_HLE, ”;"); 

else 

PUT_LINE(THE_FILE, M );”); 
end if; 

end loop; 

end WRITE_PROCEDURE_SPEC; 



- define procedure body 

- The order of the parameters only needs to match up with the 

- query PSDL specification since it's within the body 

- of this procedure that the software base component Operator 
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— procedure is invoked. 

procedure WRITE_PROCEDURE_BODY(QC_OPERATOR_NAME : in STRING; 

SBC_OPERATOR_NAME : in STRING; 
QC_IN_PARAM_LIST : in PARAMETERS; 
QC_OUT_PARAM_UST : in PARAMETERS; 
SBC_IN_PARAM_LIST : in PARAMETERS; 
SBC_OUT_PARAM_UST : in PARAMETERS) is 



PTR . PARAMETERS; 
PTR2 : DUP_PTR; 



begin 



NEW_LINE(TH E_FILE) ; 

PUT_LINE(TH E_FILE, " procedure *' & QC_OPERATOR_N AME & 

- input parameters 

PTR := QC_IN_PARAM_UST; 
while (PTR /= null) loop 

PUT(THE_HLE, " "); 

PUT(THE_FILE t PTR.ID.S); 

SPACES(STD_ID_MAX_LENGTH - PTR.ID.SLENGTH); 
PUT(THE_FILE, M : in "); 

if (PTR.H as_udt) then - qc parameter defined by UDT 

PUT(THE_FILE, PTR.UDT.S & PKG_SUFFIX & & PTR.UDT.S); 

elsif (PTR.THE.TYPE.S = ARRAY_TYPE) then 

— use defined array type declaration 

PUT(THE_FILE, PTR.ID.S & ARRAY_SUFFIX); 



else 



PUT(THE_FILE, PTR.THE_TYPE.S); 
end if; 

PTR := PTR. NEXT; 
if (PTR /= null) then 

PUT_UNE(THE_FILE, 

else 

if (QC_OUT_PARAM_UST = null) then 
PUTJLINE(THE_FILE, M ) is”); 
else 

PUT_LINE(THE_F1LE, 

end if; 
end if; 

end loop; 



— output parameters 
PTR := QC_OUT_PARAM_LIST ; 
while (PTR /= null) loop 
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PUT(THE_FILE, " "); 

PUT(THE_FILE, PTR.ID.S); 

SPACES(STD_ID_MAX_LENGTH - PTR.ID.S'LENGTH); 
PUT(THE_FILE, " : out * ); 

if (PTR.HAS_UDT) then - qc parameter defined by UDT 

PUT(THE_FILE, PTR.UDT.S & PKG_SUFFIX & V & PTR.UDT.S); 

els if (PTR.THE_TYPE.S = ARRAY_TYPE) then 

- use defined array type declaration 

PUT(THE_FILE, PTR.ID.S & ARRAY.SUFFIX); 



else 



PUT(THE_FILE, PTR.THE_TYPE.S); 
end if; 

PTR := PTR. NEXT; 
if (PTR /= null) then 

PUT_UNE(THE_FILE, M ; M ); 

else 

PUT_UNE(THE_FILE, ”) is M ); 
end if; 

end loop; 

NEW_LINE(THE_FILE); 

— see if dummy output parameters will be needed 
if (PARAMETER_COUNT(QC_OUT_PARAM_LIST) < 
PARAMETER_COUNT(SBC_OUT_PARAM_UST)) then 

— we must include dummy output parameters 

— create them and define them in procedure as variables 

PUT_LINE(THE_FILE, " - dummy output parameters"); 

- predefine any undefined array type declarations 

WRITE_SBC_TYPE_DECLARATION(SBC_OUT_PARAM_LIST); 

-- get dummy ( unmatched ) parameters 

PTR := SBC_OUT_PARAM_LIST ; 
while (PTR /= null) loop 

if (PTR.MAPPING = null) then 

-- unmatched, therefore must be a dummy output parameter 
- Note: for this implementation, no software base component 
parameter can be defined as a UDT unless it was 
a generic instantiated via a query UDT. 

PUT(THE_F1LE, " " & PTR.ID.S & DUMMY_SUFFIX & " : ”); 
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if PTR.DEFINED_BY_GENERIC_TYPE then 

- get instantiated generic type 

if (PTR.GENERIC_LINK.MAPPING.THE_TYPE.S = ARRAY_TYPE) then 

- see if the array is defined by a UDT 

if (PTR.GENERICJLINK.MAPPING.HAS_UDT) then 

PUT(THE_F1LE, PTR. GENERIC MAPPING. UDT. S & PKG_SUFFIX & & 

PTR.GENERIC_LINKMAPPING.UDT.S); 

else 

— use defined array type declaration 

PUT(THE_FILE, PTR.GENERIC.LINK.MAPPING.ID.S & ARRA Y_SUFFIX) ; 



end if; 



else -- not an array type 

-- see if the parameter is defined by a UDT 

if (PTR.GENERIC_LINK.MAPPING.HAS_UDT) then 

PUT(THE_FILE, PTR.GENERIC.UNK.MAPPING.UDT.S & PKG_SUFFIX & V & 
PTR.GENERIC_LINKMAPPING.UDT.S); 

else 

PUT(THE_FILE, PTR.GENERIC_LINK.MAPPING.THE_TYPE.S); 



end if; 
end if; 



else — not defined by a generic 

— see if its an array 

if (PTR.THE_TYPE.S = ARRAY_TYPE) then 

- use defined array type declaration 

PUT(THE_FILE, PTR.ID.S & ARRAY_SUFFIX); 

else - not an array type 

PUT(THE_FILE, PTR.THE_TYPE.S); 



end if; 
end if; 

PUT_LINE(THE_FILE, 
end if; 



PTR := PTR.NEXT; 

end loop; 
end if; 
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NEW_UNE(THE_FTLE); 



— procedure body begin statement 
NEW_UNE(THE_FILE); 
PUT_UNE(THE_FILE, " begin”); 
NEW_LINE(THE_FILE); 



- call the software base component Operator procedure 

WRITE.C ALL_SBC_PROCEDURE(QC_OPERATOR_N AME, SB C_OPERATOR_NAME, 
SB C_IN_P ARAM _LI ST , SBC_OUT_PARAM_UST); 

- write the end of the procedure body 

PUT_LINE(THE_FILE, M end " & QC_0 PERATOR_N AME & 

NEW_UNE(THE_FILE); 

end WRITE_PROCEDURE_BODY; 



— creates the "wrapper" package from the valid final mapping 

~ between query and software base components . This shell becomes 

- the Ada package the prototype designer works with . 

procedure BUILD_OPERATOR_WRAPPER(QC_IN_PARAM_UST : in PARAMETERS; 

QC_OUT_PARAM_UST : in PARAMETERS; 
SBC JN_PARAM_UST : in PARAMETERS; 
SBC_OUT_PARAM_UST : in PARAMETERS; 
GEN_PARAM_UST : in PARAMETERS; 

QC_0 PERATOR_N AME : in STRING; 

SB C_OPERATOR_NAME : in STRING) is 



PTR : DUP_PTR; 
begin 



-- open the file in which the shell will be written to 

C REATE(TH E_FILE, MODE => OUT.RLE, NAME => QC_0 PERATOR_N AME & PKG_SUFFIX & 
FTLE_SUFFIX); 

— write any "with" statements required due to user defined 

- types (UDTs) and software base component inclusion 

PTR := BU1LD_WITH_UST(QC_IN_PARAM_UST,QC_0UT_PARAM_UST); 
WRITE_WITH_STATEMENTS(SBC_OPERATOR_NAME, PTR); 

- write package declaration 

WRITE_PACKAGE_DECLARATION(QC_OPERATOR_NAME); 

— predefine all array type declarations 
WRITE_QC_TYPE_DECLARATION(QC_IN_PARAM_UST); 
WRITE_QC_TYPE_DECLARATION(QC_OUT_PARAM_UST); 
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NEW_LINE(THE_FILE, 2); 



if (GEN_param_list /= null) then -- sbc has generic parameters 
SBC _IS_GENERIC := TRUE; 

WRITE_GENERIC_INSTANnATION(QC_OPERATOR_NAME, SBC_OPERATOR_NAME, 
GEN_PARAM_UST); 
end if; 



- define procedure specification 

WRITE_PROCEDURE_SPEC(QC_OPERATOR_NAME, QC_IN_PARAM_LIST, QC_OUT_PARAM_UST); 

— write the package end statement 

WRITE_END_OF_PACKAGE(QC_OPERATOR_NAME); 

-- create a package body with procedure implementation 

WRITE_PACKAGE_BODY_DECLARATTON(QC_OPERATOR_NAME); 

WRITE_PROCEDURE_BODY(QC_OPERATOR_NAME, SBC_OPERATOR_NAME, QC_IN_PARAM_UST, 
QC_OUT_PARAM_UST, SBC_IN_PARAM_UST, SBC_OUT_PARAM_UST); 



- write the package body end statement 

WRTTE_END_OF_PACKAGE(QC_OPERATOR_NAME); 

CLOSE(THE_FILE); 
end BUILD_OPERATOR_WRAPPER; 
end BUILD_OPERATOR_WRAPPER_PKG; 



********************************************************************************* 

********************************************************************************* 

********************************************************************************* 



- Filename / CreateOperatorParameterFiles.a 

-- Date / 10 Aug 93 

- Author / Scott Dolgoff 

- System / Sun SPARCstation 

-- Compiler / Verdix Ada 

-- Description / This program drives the writing of the input and output 
/ parameters of software component's Prototype System 
/ Description Language (PSDL) specifications into 
/ two separate files. These input/output parameter 
/ files are later used by the graphical user interface 
/ written with TAE to help transform components selected 
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/ through matching to be brought into the prototype 
/ working directory. If the PSDL specification is of 
/ a software base component, then a check is made to 
/ see if it has generic parameters. If it does 
/ then the generic parameters are written to a third 
/file. 



with P ARAM ETER_LIST_PKG , PSDL_ID_PKG; 
use PARAMETER_UST_PKG, PSDL_ID_PKG; 

package CREATE_OPERATOR_PARAMETER_FILES_PKG is 



type COMPONENT.STATUS is (QUERY.COMPONENT, SOFTWAREJ3ASE_COMPONENT); 

procedure CR£ATE_OPERATOR_PARAMETER_FILES(THE_COMPONENT : in COMPONENT'S TATUS; 

IN_PARAM_LIST : in out PARAMETERS; 
IN_PARAM_COUNT : out INTEGER; 

OUT_PARAM_LIST : in out PARAMETERS; 
OUT_PARAM_COUNT : out INTEGER; 

GEN J> ARAM JJST : in out PARAMETERS; 
GEN_PARAM_COUNT : out INTEGER; 

HAS_GENERICS : out BOOLEAN; 

OPJfAME : out PSDLJD); 

end CREATE_OPERATOR_PARAMETER_FILES_PKG; 



with TEXT JO, PSDL_CONCRETE_TYPE_PKG, LOAD_PSDL_ENTO_ADA_STRUCTURE_PKG, 
ITERATE2_THROUGH_OPERATOR_PARAMETERS_PKG, PSDL_PROGRAM_PKG, 

PSDL_COMPONENT_PKG; 

use TEXT JO, PSDL_CONCRETE_TYPE_PKG, LOAD_PSDL_INTO_ADA_STRUCTURE_PKG, 
ITERATE2_THROUGH_OPERATOR_PARAMETERS_PKG, PSDL_PROGRAM_PKG, 

PSDL_COMPONENT_PKG; 



package body CREATE_OPERATOR_PARAMETER JTLES_PKG is 
OPERATOR.COMPONENT ; PSDL_COMPONENT_PKG. OPERATOR; 



procedure CREATE_OPERATOR_PARAMETER_FILES(THE_COMPONENT : in COMPONENTS TATUS; 

IN_PARAM_UST : in out PARAMETERS; 
IN_PARAM_COUNT : out INTEGER; 

OUT_PARAM_UST : in out PARAMETERS; 
OUT_PARAM_COUNT : out INTEGER; 
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GEN_PARAM_LIST : in out PARAMETERS; 
GEN_PARAM_COUNT : out INTEGER; 
HAS_GENERICS : out BOOLEAN; 

OP_NAME : out PSDLJD_PKG.PSDLJD) is 



IN_STANDARD_NAME 

"input_parameters.txt"; 

OUT_STANDARD_NAME 

"output_parameters.txt"; 

GEN_STANDARD_NAME 

"generic_parameters.txt"; 



: STRING(1 .. 20) := 



: STRING(1 ..21):= 



: STRING(1 ..22) := 



FILE_SUFFTX 
PTR, GEN_PTR 
SET_LINK 



: STRING(1 ..4); 

: PARAMETERS; 
: BOOLEAN; 



GENERIC_MO DEL, OUTPUT_P ARAMETERS , INPUT.PARAMETERS : 
PSDL_CONC RETE_TYPE_PKG.TYPE_DECL ARATION ; 
PROTOTYPE_S PEC 

PSDL_PROGRAM_PKG.PSDL_PROGRAM; 



begin 



— get the Operator component 

RETRIEVE_OPERATOR_COMPONENT(OPERATOR_COMPONENT); 

-- get Operator name 

OP.NAME := PSDL_COMPONENT_PKG.NAME(OPERATOR_COMPONENT); 

-- get the Prototype Specification 

RETRIEVE J>ROTOTYPE_SPEC<PROTOTYPE_SPEC); 

-- Pass the components to the packages that will need 

— them 

SEND_COMPONENTS(OPERATOR_COMPONENT,PROTOTYPE_SPEC); 

-- Pass the file suffix so the correct files can be 

— written to. 

if THE_COMPONENT = QUERY_COMPONENT then 
FTLE_SUFFIX := ”qyc_"; 
else 

FILE_SUFFIX := "sbc_”; 
end if; 



- open the input parameters file 

OPEN_FILE(FILE_SUFFIX & IN_STANDARD_NAME); 

— get the Operator's input parameters 

INPUT_P ARAMETERS := PSDL_COMPONENT_PKG.INPUTS(OPERATOR_COMPONENT); 

— iterate through the input parameters to store the 

- input parameters in a text file 
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ITERATE_THROUGH_INFUT_PARAMETERS(INPUT_PARAMETERS); 



CLOSE_FILE; 

— build list of all input parameters and how many there are 

B UILD_P ARAMETER_LIST (IN_PARAM_LIST, IN_PARAM_COUNT); 



- open the output parameters file 

OPEN_FILE(FILE_S UFFIX & OUT_STANDARD_NAME); 

- get the Operator's output parameters 

OUTPUT_PARAMETERS := PSDL_COMPONENT_PKG.OUTPUTS(OPERATOR_COMPONENT); 

-- iterate through the output parameters to store the 

- output parameters in a text file 

ITERATE_THROUGH_OUTPUT_PARAMETERS(OUTPUT_PARAMETERS); 

CLOSE_FILE; 

- build list of all output parameters and how many there are 

BUILD_PARAMETER_LIST(OUT_PARAM_UST, OUT_PARAM_COUNT); 



-- Check the component status. If it is a software base component 

- then it may have generic parameters. 

HAS_GENERICS := FALSE; 

GEN_PARAM_LIST := nuU; 

GEN_PARAM_COUNT ;= 0; 

if THE.COMPONENT = SOFTWARE_BASE_COMPONENT then 

-- Get the generic parameters. 

GENERIC.MODEL ;= 

PSDL_COMPONENT_PKG.GENERIC_PARAMETERS(OPERATOR_COMPONENT); 

if not PSDL_CONCRETE_TYPE_PKG.EQUAL(GENERlC_MODEL, 
PSDL_CONCRETE_TYPE_PKG.EMPTY_TYPE_DECLARATION) then 

-- it has generic parameters 

HAS_GENERICS := TRUE; 



— open the input parameters file 

OPEN_FILE(FILE_SUFFIX & G EN_ST AND ARD_N AME); 

— iterate through the generic parameters to store the 

— generic parameters in a text file 

ITERATE_THROUGH_GENERlC_PARAMETERS(GENERIC_MODEL); 

CLOSE_FILE; 
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— build list of all generic parameters and how many there are 

BUILD_PARAMETER_UST(GEN_PARAM_UST, GEN.PARAM.COUNT); 

— establish the links between the generic parameters and the 

— SBC input parameters defined in terms of those 

— generic parameters 

PTR := IN_PARAM_LIST ; 
while (PTR I- null) loop 

if PTR.DEFINED.BY.GENERIC.TYPE then 

— find the generic and set the link 

GEN.PTR := GEN_PARAM_LIST ; 

SET.LINK := FALSE; 

while ((GEN_PTR /= null) and (not SET_LINK)) loop 

if (GEN.PTR.ID.S = PTR.GENERICJD.S) then 
SET.LINK ;= TRUE; 

— link set 

PTR.GENERIC.LINK := GEN_PTR; 
end if; 

GEN.PTR := GEN.PTR.NEXT; 
end loop; 
end if; 

PTR := PTR. NEXT; 
end loop; 



— establish the links between the generic parameters and the 

— SBC output parameters defined in terms of those 

— generic parameters 

PTR := OUT_PARAM_UST; 
while (PTR /= null) loop 

if PTR.DEFINED_B Y_GENERIC_TYPE then 

-find the generic and set the link 

GEN_PTR := GEN_PARAM_UST; 

SET.LINK := FALSE; 

while ((GEN_PTR /= null) and (not SET.LINK)) loop 

if (GEN.PTR.ID.S = PTR.GENERICJD.S) then 
SET.LINK := TRUE; 

PTR. GENE RIC.LINK ;= GEN.PTR; 
end if; 

GEN.PTR := GEN.PTR.NEXT; 
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end loop; 
end if; 

PTR := PTR.NEXT; 



end loop; 

end if; 
end if; 



exception 
when others => 

PUTJJNEC’*** THIS PROGRAM CANNOT CONTINUE ***"); 
raise ; 

end CREATE_OPERATOR_PARAMETER_FILES; 
end CREATE_OPERATOR_PARAMETER_FILES_PKG; 



********************************************************************************* 

********************************************************************************* 

********************************************************************************* 



— Filename / DetermineAdaTypePkg.a 

— Date / 9 August 93 

— Author / Scott Dolgoff 

-- System / Sun SPARCstation 

— Compiler / Verdix Ada 

— Description / This program determines the Ada type of a parameter 

/ type that was not defined as an Ada type, but rather 
/ in terms of an ADT, generic, or user defined type. 

with PSDL_PROGRAM_PKG, PSDL_COMPONENT_PKG, PSDL_CON CRETE_TYPE_PKG, PSDLJD_PKG; 
use PSDL_PROGRAM_PKG, PSDL_COMPONENT_PKG, PS DL_CON CRETE_TYPE_PKG , PSDL_ID_PKG; 
package DETERMINE_TH E_A D A_TYPE_PKG is 



type COMPONENT_TYPE is (OPERA TOR_COMP, TYPE.COMP); 

-- Input parameter is a user defined type so we must look 

— up its Ada type representation by extracting the 

— user defined type from the prototype PSDL specification. 

procedure GET_USER_DEFINED_TYPE(TH E_TYPE_N AME 

PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 
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out 



UDTTYPE.NAME : in 

PSDL_CONCRETE_TYPE_PKG.TYPE_NAME); 



— Looks through the generic parameters of a Type or Operator to 

— see if an unrecognized type is defined as an Ada type there. 

procedure CHECK_GENERICS(THE_COMPONENT : in COMPONENTTYPE; 

UNKNOWN_TYPE_N AME : in out 

PSD L_CON CRETE_TYPE_PKG ,TYPE_N AME; 

GENERIC_TYPE_N AME : in out PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 
FOUND_TYPE : out BOOLEAN); 



— Called if a type is an ARRAY which means that in order to 

— correctly build the signature, not only must the ARRAY 

— be encoded into the signature, but also the ARRAY components. 

procedure GET_ARRAY_COMPONENTS(TYPE_NAME : in 

PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 

ELEMENT_TYPE : out PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 
ELEMENT_IS_UDT : out BOOLEAN; 

ELEMENT.UDT : out PSDL_ID_PKG.PSDL_ID; 

INDEX_TYPE : out PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 
INDEX_IS_UDT ; out BOOLEAN; 

INDEX_UDT : out PSDL_ID_PKG.PSDL_ID; 

ARRAY_IN_UDT : in BOOLEAN); 



-- make the operator or type component and the prototype component 
- visible to this package 

procedure PASS_COMPONENTS(MAIN_COMPONENT ; in 

PSDL_COMPONENT_PKG.PSDL_COMPONENT; 

PROTO_SPEC : in PSDL_PROGRAM_PKG.PSDL_PROGRAM); 



-- exceptions 

- the user defined type of an Operator input or output 

- parameter was not defined in the Prototype PSDL specification 

UN D EFINE D_U S ER_D E FINE D_TY PE : exception; 

-- the type used to define a user defined type is not a 

- valid Ada type 

INVALID_ADA_TYPE : exception; 

end DETERMINE_TH E_ AD A_TYPE_PKG; 
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with TEXTJO, ADA_RECOGNIZED_TYPES_PKG, LOAD_PSDL_INTO_ADA_STRUCTURE_PKG, 
TYPE.N AME _PKG, A.STRINGS; 



use TEXTJO, ADA_RECOGNIZED_TYPES_PKG, LOAD_PSDL_INTO_ADA_STRUCTURE_PKG, 
A.STRINGS; 



package bcxiy D ETERMINE.TH E_ AD A_TYPE_PKG is 

GV.NAME, GV.UDT.NAME : 

PSDL_CONCRETE_TYPE_PKG.TYPE.NAME; 

PROTOTYPE.SPEC : 

PSDL_PROGRAM_PKG .PSDL_PROGR AM; 

MAIN_TYPE_COMPONENT, TYPE_COMPONENT_WITH_ ARRAY, TYPE.COMPONENT : 
PS DL_COMPONENT_PKG.DAT A_TYPE; 

OPE RATOR.C OMPONENT : 

PSDL_COMPONENT_PKG.OPERATOR; 

KIND_OF_COMPONENT : 

PSDL_COMPONENT_PKG.COMPONENT.TYPE; 



— make the operator or type component and the prototype component 
-- visible to this package 

procedure PASS_COMPONENTS(MAIN_COMPONENT : in 

PSDL_COMPONENT_PKG.PSDL_COMPONENT; 

PROTO.SPEC : in PSDL_PROGRAM_PKG.PSDL_PROGRAM) is 



begin 

KIND_OF_C OM PONENT := COMPONENT.C ATEGORY (M AIN.COMPONENT); 
case KIND.O F_C O M PONENT is 

when PS DL.OPER ATOR => 

OPERATOR.COMPONENT := MAIN.COMPONENT; 

when PSDL.TYPE => 

M AIN_TYPE_C OM TON ENT := MAIN .COMPONENT; 
end case; 

PROT OTYPE_S PEC := PROTO.SPEC; 
end PASS.COMPONENTS; 



-- Input parameter is a user defined type so we must look 

- up its Ada type representation by extracting the 

— user defined type from the prototype PSDL specif cation. 

procedure GET_USER_DEFINED_TYPE(THE_TYPE_NAME 

PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 
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PSDL_CONCRETE_TYPE_PKG.TYPE_NAME) is 



UDT_TYPE_N AME 



in 



out 



TYPE_MODEL : PS DL_C ONCRETE_TYPE_PKG .TYPE_DEC L A RATION ; 



begin 



- retrieve the type component specification 

TYPE.COMPONENT := PSDL_PROGRAM_PKG .FETCH( PROTOTYPE_SPEC , 
THE_TYPE_NAME.NAME); 
if TYPE_COMPONENT = null then 
GV.NAME := THE_TYPE_NAME; 
raise UNDEFINED_USER_DEFINED_TYPE; 
end if; 



— get the corresponding Ada type of the user defined type 

TYPE.MODEL := PSDL_COMPONENT_PKG.MODEL(TYPE_COMPONEND; 

UDT_TYPE_N AME := 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION_PKG.FETCH(TYPE_MODEL, 

THE_TYPE_NAME.NAME); 

— Ensure type was defined. If not, then nothing was fetched. 

if TYPE_NAME_PKG. "=" (U DT_TYPE_N AME, TYPE_NAME_PKG.NU LL_TYPE) then 
GV_NAME := THE_TYPE_NAME; 
raise UNDEFINED_USER_DEFINED_TYPE; 
end if; 



- type of the UDT must be a valid Ada type 

if not RECOGNIZED_ADA_TYPE(UDT_TYPE_NAME.NAME) then 
GV_NAME := TH E_TYPE_N AME; 

GV_UDT_NAME := UDT_TYPE_NAME; 
raise INVALID_ADA_TYPE; 
end if; 



exception 



when UNDEFINED_USER_DEFINED_TYPE => 

PUT_LINE("*** ERROR: " & GV_NAME.NAME.S & M IS A USER DEFINED”); 
PUT_LINE("TYPE THAT IS NOT DEFINED IN THE PROTOTYPE PSDL”); 

PUT_LINE( "SPECIFICATION. THIS MEANS IT IS EITHER NOT INCLUDED"); 
PUT_UNE("AS A SEPARATE TYPE SPECIHCATION, OR IF IT IS, IT IS"); 
PUT_UNE("NOT DEFINED AS AN ADA TYPE WITHIN THE TYPE SPECIHCATION"); 
PUT.UNECTT IS ALSO POSSIBLE THAT EITHER ARRAY.ELEMENT OR"); 
PUT_LINE(' M ARRAY_INDEX' WAS REQUIRED BUT NOT USED AS IDENTIFIERS."); 
NEWJJNE; 
raise ; 



when INVALID_ADA_TYPE => 

PUT_LINE("*** ERROR: INVALID ADA TYPE DISCOVERED FOR -"); 

PUT_LJNE(" " & GV_NAME.NAME.S & " : " & GV_UDT_NAME.NAME.S); 
PUT_LINE("A Type MUST BE DEFINED AS AN ADA TYPE. IT CAN REFERENCE"); 
PUT_LINE( "INFORMATION IN ITS GENERIC PARAMETERS, BUT CANNOT"); 
PUT_LINE( "REFERENCE DEFINITION INFORMATION OUTSIDE ITS OWN"); 
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PUTJJNEfSPECIFICATION. A Generic PARAMETER MUST BE FULLY "); 
PUT_LINE(" DEFINED AS AN ADA TYPE. IT CANT EVEN REFERENCE OTHER "); 
PUT_LINE( M DEFINIT[ONS WITHIN ITS GENERICS. ’); 

NEW_LINE; 
raise ; 



when others => 

PUT.LINE ("*** UNKNOWN ERROR: OCCURED IN procedure ”); 
PUTJJNEf GET_USER)_DEFINED_TYPE. ”); 

NEWJLINE; 
raise ; 



end GET_USER_DEFINED_TYPE; 



- Looks through the generic parameters of a Type or Operator to 
~ see if an unrecognized type is defined as an Ada type there. 

procedure CHECK_GENERICS(THE_COMPONENT : in COMPONENT.TYPE; 

UNKN O WN_TYPE_N AME : in out 

PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 

GENERIC_TYPE_N AME : in out PSDL_C ONCRETE_TYPE_PKG.TYPE_N AME; 
FOUND.TYPE : out BOOLEAN) is 

COMPONENT : PSDL_COMPONENT_PKG.PSDL_COMPONENT; 

GENERIC.MODEL : PS DL_CON CRETE JTYPE_PKG.TYPE_DECLARATION ; 

COMP.NAME : PSDL_ID_PKG.PSDL_ID; 



begin 



- select the correct component type 

case THE.COMPONENT is 

when OPERATOR.COMP => 

COMPONENT := OPERATOR_COMPONENT; 

when TYPE.COMP => 

COMPONENT := TYPE_COMPONENT_WITH_ARRAY ; 



end case; 



-- Get the generic parameters. 

GENERIC.MODEL := PSDL_COMPONENT_PKG.GENERIC_PARAMETERS(COMPONENT); 

if not PSDL_CONCRETE_TYPE_PKG.EQUAL(GENERIC_MODEL. 
PSDL_CONCRETE_TYPE_PKG.EMPTY_TYPE_DECLARATION) then 

— get the corresponding Ada type of the corresponding unknown type 

GENERIC_TYPE_NAME := 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION_PKG.FETCH(GENERIC_MODEL, 

UNKNOWN_TYPE_NMfE.NAME); 
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— Ensure unknown type was defined. If not, then nothing was fetched. 

if TYPE_NAME_PKG."=" (GENERIC_TYPE_NAME, TYPE_NAME_PKG.NULL_TYPE) then 

— will have to check something other then generics 

FOUND_TYPE := FALSE; 

else 

— type of the GENERIC must be a valid Ada type 

if RECOGNIZED_ADA JTYPE(GENERIC JTYPE.NAMENAME) then 
FOUND_TYPE := TRUE; 
else 

GV.NAME := UNKNOWN_TYPE_NAME; 

GV_UDT_NAME := GENERIC_TYPE_NAME; 
raise INVALID„ADA_TYPE; 
end if; 
end if; 

else 

- will have to check something other then generics 
FOUND.TYPE := FALSE; 
end if; 



exception 



when INVALID_ADA_TYPE => 

PUT_UNE("*** ERROR: INVALID ADA TYPE DISCOVERED FOR -"); 

PUTJJNE(" " & GV.NAME.NAME.S & " : M & GV_UDT_NAME.NAME.S); 
PUTJJNEfA Type MUST BE DEFINED AS AN ADA TYPE. IT CAN REFERENCE*); 
PUTJJNECINFORMATION IN ITS GENERIC PARAMETERS, BUT CANNOT"); 
PUTJJNEfREFERENCE DEFINITION INFORMATION OUTSIDE ITS OWN"); 
PUT_UNE("SPECIFICATION. A Generic PARAMETER MUST BE FULLY "); 

PUT JJNE( "DEFINED AS AN ADA TYPE. IT CANT EVEN REFERENCE OTHER "); 
PUT_LINE("DEFINITIONS WITHIN ITS GENERICS."); 

NEWLINE; 
raise ; 



when others => 

PUT_LINE("*** UNKNOWN ERROR: OCCURED IN procedure "); 
PUT_LINE(" CHECK_GENERICS. "); 

NEW_LINE; 
raise ; 

end CHECKJ3ENERICS; 



— Called if a type is an ARRAY which means that in order to 
-- correctly build the signature, not only must the ARRAY 

- be encoded into the signature, but also the ARRAY components. 

procedure GET_ARRAY_COMPONENTS(TYPE_NAME ; in 

PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 

ELEMENTTYPE : out PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 
ELEMENTJ S_UDT : out BOOLEAN; 

ELEMENT_UDT : out PSDL_ID_PKG.PSDL_ID; 

INDEX_TYPE ; out PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 
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INDEX JSJJDT : out BOOLEAN; 

INDEX JJDT : out PSDL_ID_PKG.PSDL_ID; 
ARRAY.IN.UDT : in BOOLEAN) is 



FOUND.TYPE : 

BOOLEAN; 

— User Defined Type (UDT) type name 

UDT.TYPE.NAME, GENERIC.TYPE.N AME, ARRA Y.ELEMENT.TYPE.N AME, 
ARRAY.INDEX_TYPE.NAME, TH E.TYPE.N AME : PSDL.CONCRETE_TYPE_PKG.TYPE_NAME; 



begin 



— Set to the last type component retrieved when looking for a 

— UDT. Needed if the UDT was an Array type. This will allow 
-- the generic parameters of the Type Component to be searched 

— in case the array index or element is defined there. 
TYPE_COMTONENt1\VITH_ARRAY := TYPE_COMPONENT; 



THE_TYPE_NAME := TYPE_NAME; 



— Because "array" is a composite type, must get 

— its components (element & index) 

— Get the array element type. ***NOTE: this program expects 

— the PSDL specification to use the identifier " ARRAY _ELEM ENT" 

— and it IS case sensitive. 

ARRAY_ELEMENT_TYPE_NAME := 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION_PKG.FETCH(THE_TYPE_NAME.GEN_PAR, 

ARRAY_ELEMENT_TYPE); 

— Ensure type was defined. If not, then nothing was fetched 

— and that was due to a failure to use the correct identifier 

— "ARRAY ELEMENT". 

if TYPE_NAME_PKG."=” ( ARRA Y_ELEMENT_TYPE_N AME, TYPE_N AME_PKG .NULL_TYPE) then 
GV_NAME := THE_TYPE_NAME; 
raise UNDEFINED JJSERJ}EFTNED_TYPE; 
end if; 

if RECOGNIZED_ADA_TYPE( ARRA Y_ELEMENT_TYPE_NAME.N AME) then 

— The parameter is a valid Ada type so go ahead and make 

— it known to the procedure output parameter 
ELEMENTTYPE ;= ARRA Y_ELEM ENT_TYPE_N AME ; 

ELEMENTJSJJDT ;= FALSE; 



else 



-- Maybe the parameter is defined in the generics of either the 

- Operator component or a Type component (UDT) if that is where the 

— Array identifier was defined. 
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if ARRAY_IN_UDT then 

CHECK_GENERICS(TYPE_COMP, ARRA Y_ELEMEN T_TYPE_N AME, GENERIC_TYPE_NAME, 
FOUND_TYPE); 

else 

CHECK_GENERICS(OPERATOR_COMP r ARRAY_ELEMENT_TYPE_NAME, 

GENERIC_TYPE_NAME, 

FOUND.TYPE); 

end if; 

if FOUND_TYPE then 

-- The type is either not composite or even if composite, 

- will not be further specified by its components so 

— go ahead and store it in element _type. 

ELEMENTTYPE := GENERIC_TYPE_NAME; 



else - The parameter must be a user defined type so 
- get its type. 

GET_U S ER_DE FINED_TYPE( ARRA Y_ELEM ENT_TYPE_N AME, UDT_TYPE_NAME); 

-- The type is either not composite or even if composite, 

— will not be further specified by its components so 

— go ahead and store it in elementjype. 

ELEMENT_TYPE := UDT_TYPE_NAME; 

ELEMENT _IS_UDT := TRUE; 

ELEMENTJJDT := ARRA Y_ELEMENT_TYPE_NAME.N AME; 

end if; 
end if; 



— Get the array index type. ***NOTE: this program expects 

— the PSDL specification to use the identifier "ARRAY INDEX" 

— and it IS case sensitive. 

ARRAY_INDEX_TYPE_NAME := 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION_PKG.FETCH(THE_TYPE_NAME.GEN_PAR, 

ARRAY_INDEX_TYPE); 



-- Ensure type was defined. If not, then nothing was fetched 

— and that was due to a failure to use the correct identifier 

- "ARRAY INDEX". 

if TYPE_NAME_PKG.”=" (ARRAY JNDEX_TYPE_NAME, TYPE_NAME_PKG.NULL_TYPE) then 
GV_NAME := THE_TY* E_NAME; 
raise UNDEFINED_USER_DEFINED_TYPE; 
end if; 



if RECOGNIZED. AD A_TYPE( ARRA Y_INDEX_TYPE_NAME.N AME) then 

— The parameter is a valid Ada type so go ahead and store 

— the array index into index_type. 

INDEX.TYPE := ARRA Y_INDEX_TYPE_N AME; 



211 



INDEXJSJUDT := FALSE; 



else 



— Maybe the parameter is defined in the generics of either the 

— Operator component or a Type component (UDT) if that is where the 

— Array identifier was defined. 

if ARRA Y_IN_UDT then 

CHECK J3ENERICS(TYPE_C0MP, ARRAY_INDEX_TYPE_NAME, GENERIC_TYPE_NAME, 
FOUND_TYPE); 

else 

CHECK_GENERICS(OPERATOR_COMP, ARRAY_INDEX_TYPE_NAME, 

GENERIC_TYPE_NAME, 

FOUND.TYPE); 

end if; 



if FOUND_TYPE then 

— The type is either not composite or even if composite, 

— will not be further specified by its components so 

-- go ahead and store. 

[NDEX_TYPE := G ENERIC_TYPE_N AME; 



else — The parameter must be a user defined type so 
— get its type. 

GET_USER_DEFINED_TYPE(ARRAY_INDEX_TYPE_NAME, UDT_TYPE_NAME); 

-- The type is either not composite or even if composite, 

— will not be further specified by its components so 

— go ahead and store. 

INDEX_TYPE := UDTTYPE.NAME; 

INDEX_IS_UDT := TRUE; 

INDEXJJDT := ARRAY_INDEX_TYPE_NAME.NAME; 

end if; 
end if; 



exception 

when UND EFINED_U S ER_DEFIN ED_TYPE => 

PUT_UNE("*** ERROR: " & GV_NAME.NAME.S & M IS A USER DEFINED"); 
PUT_LINE("TYPE THAT IS NOT DEFINED IN THE PROTOTYPE PSDL"); 

PUT_LINE( "SPECIFICATION. THIS MEANS IT IS EITHER NOT INCLUDED"); 
PUT_LINE("AS A SEPARATE TYPE SPECIHCATION, OR IF IT IS, IT IS"); 
PUT_UNE("NOT DEFINED AS AN ADA TYPE WITHIN THE TYPE SPECIFICATION"); 
PUT.LINEflT IS ALSO POSSIBLE THAT EITHER 'ARRAY_ELEMENT OR"); 
PUT_LINE(’" ARRA Y_IND EX' WAS REQUIRED BUT NOT USED AS IDENTIFIERS."); 
NEW_UNE; 
raise ; 



when others => 

PUT_LINE("*** UNKNOWN ERROR: OCCURED IN procedure "); 
PUT_LINE(" ENCODE_ARRAY_AND_ITS_COMPONENTS . "); 
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NEWJJNE; 
raise ; 

end GET_ARRAY_COMPONENTS; 
end DETERMINE_THE_ADA_TYPE_PKG; 



********************************************************************************* 

********************************************************************************* 

********************************************************************************* 



-- Filename / EncodeADTSignature.a 
-- Date / 30 August 93 

- Author / Scott Dolgoff 

- System / Sun SPARCstation 

— Compiler / Verdix Ada 

— Description / This program encodes the signatures 

/ of software components from their Prototype System 
/ Description Language (PSDL) specifications. 

with PSDL_COMPONENT_PKG. ADD_ADA_TYPE_TO_SIGNATURE_PKG; 
use PSDL_COMPONENT_PKG, ADD_ADA_TYPE_TO_SIGNATURE_PKG; 

package ENCODE_ADT_SIGNATURE_PKG is 

procedure ENCODE_ADT_SIGNATURE(INPUT_SIGNATURE : out SIGNATURE; 

OUTPUT_SIGN ATURE : out SIGNATURE); 

end EN CODE_ ADT_SIGN ATU RE_PKG ; 



with TEXTJO, PSDL_CON CRETE_TYPE_PKG , LOAD_PSDLJNTO_ADA_STRUCTURE_PKG, 
ITERATE_THROUGH_ADT_OPERATOR_PARAMETERS_PKG, PSDL_ID_PKG; 
use TEXTJO, PSDL_CONCRETE_TYPE_PKG, LOAD_PSDL_INTO_ADA_STRUCTURE_PKG, 
ITERATE_THROUGH_ADT_OPERATOR_PARAMETERS_PKG, PSDLJD_PKG; 



package body ENCODE_ADT_SIGNATURE_PKG is 

INPUT_SWITCH : 

constant IO_SWITCH_CLASSES := INPUT_PARAMETER; 

OUTPUT.SWITCH 
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constant IO_SWITCH_CLASSES := OUTPUT_PARAMETER; 

TYPE_COMPONENT 

PS DL_COM PONENT_PKG. D AT A_TYPE; 

OPERATOR_COUNT : 

INTEGER := 0; 

- WORKING JCXX -SIGNATURE is initialized to 0. It 

- enables an aggregate signature (aggregate of all ADT Operator 

- signatures ) to be built. 

WORKING JNPUT_SIGNATURE, WORKING_OUTPUT_SIGNATURE : SIGNATURE, 
OPERATORJNPUT.SIGNATURE, OPERATOR J3UTPUT_SIGNATURE : SIGNATURE; 



- procedure passed to generic scan procedure in generic map package 

- extracts the ADT Operators from the Type component 

- map 

procedure GET_ADT_OPERATORS(ID : in PSDL_ID_PKG.PSDL_ID; 

OPERATOR_COMPONENT : PSDL_COMPONENT_PKG.OPERATOR); 



- iterate through the Operation map to extract the set of output 

— parameters. 

procedure ITERATE_THROUGH_ADT_OPERATORS is new 

PSDL_COMPONENT_PKG.OPERATION_MAP_PKG.GENERIC_SCAN(GENERATE=>GET_ADT_OPERATO 
RS); 



procedure STORE, ADT_OPERATOR_SIGNATURESJN_HLE(OP_NAME : in STRING; 

TP,NAME : in STRING) is 

package INTEGER_INOUT is new INTEGER_IO (INTEGER); 
use INTEGER_INOUT; 

-- ADT operator names are the catenation of the ADT component 
- name with a and the ADT operator name. 

SIG_FILE_NAME : constant STRING := TP_NAME & & OP_NAME & ".txt”; 

SIG_FILE : TEXT_IO.FILE_TYPE; 



begin 



-- Create the file using operator name to store the 
- Operator signatures in. 

TEXT_IO.CREATE(SIG_FILE, MODE => OUT_FILE, NAME => SIG_FILE_NAME); 

-- Store Operator input signature. 

for REGION in ALL_REGIONS'HRST .. ALL_REGIONS’LAST loop 

-- Note: Setting WIDTH to zero is critical because 
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it left justifies the numbers . This makes 
it easy on the C++ program that has to read 
the numbers from a file as characters and 
then convert them to integers 

PUT(SIG_FILE, OPERATOR_INPUT_SIGN ATU RE( REGION ), WIDTH => 0); 

NEW_UNE(SIG_FILE); 



end loop; 



— Store Operator output signature. 

for REGION in ALL.REGIONS'FIRST .. ALL_REGIONS’LAST loop 

PUT(SIG_FILE, OPERATOR_OUTPUT_SIGN ATU RE(REG ION) , WIDTH => 0); 
NEW_LINE(SIG_FILE); 



end loop; 

TEXT.IO .CLOSE(SIG_FILE); 
end STORE. ADT_OPERATOR_SIGNATURES_IN_FILE; 



procedure UPDATE_WORKING_SIGNATURE(THE_SIGNATURE : in SIGNATURE; 

IO.SWITCH : in IO.SWITCH.CLASSES) is 



begin 

for REGION in ALL.REGIONS' FIRST .. ALL.REGIONS'LAST loop 



case IO.SWITCH is 

when ENPUT.PARAMETER => 

WORKING_INPUT_SIGNATURE(REGION) := WORKING_INPUT_SIGNATURE(REGION) + 
THE.SIGNATURE(REGION); 

when OUTPUT.PARAMETER => 

WORKING.OUTPUT.SIGNATURE(REGION) := WORKJNG.OUTPUT.SIGNATURE(REGION) + 
THE.SIGNATURE(REGION); 

end case; 

end loop; 

end UPDATE.WORKING.SIGNATURE; 

- procedure passed to generic scan procedure in generic map package 
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- extracts the ADT Operators from the Type component 

— map 

procedure GET_ADT_OPERATORS (ID : in PSDL_ID_PKG.PS DLJD; 

OPERATOR COMPONENT : PSDL_COMPONENT_PKG.OPERATOR) is 
COMPONENTJD : PSDL_ID_PKG.PSDL_ID; 

OUTPUT_PARAMETERS , INPUT_PARAMETERS : 
PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION; 



begin 



-- provide necessary component to 

— ITERATE ^THROUGH ADT OEERATORPARAMETERSPKG 

PASS_ADT_OPERATOR(OPERATOR_COMPONENT); 

OPERATOR_COUNT := OPERATOR_COUNT + 1; 

— get the Operator's input parameters 

INPUT_PARAMETERS := PSDL_COMPONENT_PKG.INPUTS(OPERATOR_COMPONENT); 

— initialize signatures to empty 

INmALIZE_THE_SIGNATURES(INPUT_SWrrCH); 

-- iterate through the input parameters to get the 

— input parameter signature for this Operator 

ITERATE_THROUGH_INPUT_PARAMETERS(INPUT_PARAMETERS); 

retrieve signature value from 

ITER AT E_T HROU GH OPERA T OR _P ARAM ETER S_PK G 

GETJNPUT_SIGNATURE(OPERATOR_INPUT_SIGNATURE); 



— get the Operator's output parameters 

OUTPUT_PARAMETERS := PSDL_COMPONENT_PKG.OUTPUTS(OPERATOR_COMPONENT); 

- initialize signatures to empty 

INITIALIZE_THE_SIGNATURES(OUTPUT_SWITCH); 

- iterate through the output parameters to get the 

- output parameter signature for this Operator 

ITERATE_THROUGH_OUTPUT_PARAMETERS(OUTPUT_PARAMETERS); 

get signature value from 

ITERATE THROUGH OPERATOR PARAMETERS PKG 

GET_OUTPUT_SIGNATURE(OPERATOR_OUTPUT_SIGNATURE); 

— update the working signatures to aggregate the new type 

— information 

UPDATE_WORKING_SIGNATURE(OPERATOR_INPUT_SIGNATURE, LNPUT_SWTTCH); 
UPDATE_WORKING_SIGNATURE(OPERATOR_OUTPUT_SIGNATURE, OUTPUT_SWTTCH); 
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— Store the ADT OPERATOR signature in a text file. We need 

— to store each set of input and output signatures in two 

— different files. One is used for loading an ADT into the 

— CAPS software base. The other is information on the query 

— component that is used during matching. 

COMPONENT.!!) := PSDL_COMPONENT_PKG.NAME(TYPE_COMPONENT); 
STORE_ADT_OPERATOR_SIGNATURES_IN_FILE(ID.S, COMPONENT JD.S); 

end GET.ADT.OPERATORS; 



procedure ENCODE_ADT_SIGNATURE(lNPUT_SIGNATURE : out SIGNATURE; 

OUTPUT.SIGNATURE : out SIGNATURE) is 

ADT.OPERATORS : PSDL_COMPONENT_PKG.OPERATION_MAP; 



begin 



-- get the Type component 

RETRI E VE_TYPE_COM PONENT(TYPE_COM PONENT) ; 

-- initialize the signatures to 0 

for REGION in ALL.REGIONS'HRST .. ALL.REGIONS'LAST loop 

INPUT_SIGNATURE(REGION) := 0; 
OUTPUT_SIGNATURE(REGION) := 0; 

WORKIN G_INPUT_SIGNATURE(REGION) := 0; 
WORKING_OUTPUT_SIGNATURE(REGION) := 0; 



end loop; 



-- retrieve the mapping of ADT Operators 

ADT.OPERATORS := PSDL_COMPONENT_PKG.OPERATIONS(TYPE_COMPONENT); 

— check to see if the Type component has Operators 
if not (OPERATION.MAP.PKG.EQU AL( ADT.OPERATORS, 
PSDL.COMPONENT.PKG.EMPTY.OPERATION.MAP)) then 

ITERATE_THROUGH_ADT_OPERATORS(ADT_OPERATORS); 

end if; 

INPUT.SIGNATURE := WORKING.INPUT.SIGNATURE; 

OUTPUT.SIGNATURE := WORKING.OUTPUT.SIGNATURE; 



exception 

when UNDEFINED.USER.DEFINED.TYPE => 
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PUT_LrNE("Corrections may be needed to the Prototype PSDL spec."); 
PUTJJNEf*** THIS PROGRAM CANNOT CONTINUE ***"); 
raise ; 

when IN V ALIL)_ AD A_TYPE => 

PUTJJNE("Corrections may be needed to the Prototype PSDL spec."); 
PUT_LINE( M User defined types must be given a corresponding Ada”); 
PUT_LINE( M type in their PSDL specification."); 

PUTJJNEf*** THIS PROGRAM CANNOT CONTINUE ***"); 
raise ; 

when PROTOTYPE_FILE_N OT_FOUND => 

PUT_LINE("*** THIS PROGRAM CANNOT CONTINUE ***"); 
raise ; 

when OPERATOR_FILE_NOT_FOUND => 

PUTJJNEf*** THIS PROGRAM CANNOT CONTINUE ***"); 
raise ; 

when others => 

PUT_LINE("*** THIS PROGRAM CANNOT CONTINUE ***"); 
raise ; 

end ENCODE. ADT_SIGN ATU RE ; 
end ENCODE.ADT_SIGNATURE_PKG; 



********************************************************************************* 

********************************************************************************* 

********************************************************************************* 



- Filename / Encode_Operator_Signature.a 
-- Date / 29 August 93 

-- Author / Scott Dolgoff 

-- System / Sun SPARCstation 

- Compiler / Verdix Ada 

- Description / This program encodes the signatures 

/ of software components from their Prototype System 
/ Description Language (PSDL) specifications. 

with PSDL_COMPONENT_PKG, ADD_ADA_TYPE_TO_SIGNATURE_PKG; 
use PSDL_COMPONENT_PKG , ADD_ADA_TYPE_TO_SIGNATURE_PKG; 

package ENCODE_OPERATOR_SIGNATURE_PKG is 

procedure ENCODE_OPERATOR_SIGNATURE(INPUT_SIGNATURE : out SIGNATURE; 

OUTPUT_SIGNATURE : out SIGNATURE); 

end ENCODE_OPERATOR_SIGNATURE_PKG; 
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with TEXTJO, PSDL_CONCRETE_TYPE_PKG, LOAD_PSDL_INTO_ADA_STRUCTURE_PKG, 
ITERATE_THROUGH_OPERATOR_PARAMETERS_PKG, PSDL_PROGRAM_PKG; 
use TEXTJO, PS DL_CON CRETE_TYPE_PKG, LOAD_PSDL_INTO_ADA_STRUCTURE_PKG, 
ITERATE_THROUGH_OPERATOR_PARAMETERS_PKG, PSDL_PROGRAM_PKG; 



package body ENCODE_OPERATOR_SIGNATURE_PKG is 

INPUT.SWITCH : constant IO_SWITCH_CLASSES := INPUT_P ARAMETER ; 

OUTPUT_SWITCH : constant IO_SWITCH_CLASSES := OUTPUT J^RAMETER; 
PROTOTYPE.SPEC : PSDL_PROGRAM_PKG.PSDL_PROGRAM; 
OPERATOR.COMPONENT : PSDL_COMPONENT_PKG.OPERATOR; 



procedure ENCODE_OPERATOR_SIGNATURE(INPUT_SIGNATURE : out SIGNATURE; 

OUTPUT_SIGN ATURE : out SIGNATURE) is 



OUTPUT_PARAMETERS, INPUT_PARAMETERS : 
PSDL_CONCRETE_TYPE_PKG.TYPE_DECLAR ATION ; 



begin 



-- get Prototype specification 

RETRIEVE_PROTOTYPE_SPEC(PROTOTYPE_SPEC); 

-- get the Operator component 

RETRffiVE_OPERATOR_COMPONENT(OPERATOR_COMPONENT); 

— Pass the components to the packages that will need 

— them 

SEND_COMPONENTS(OPERATOR_COMPONENT, PROTOTYPE_SPEC); 



-- get the Operator's input parameters 

INPUT.PARAMETERS := PSDL_COMPONENT_PKG.INPUTS(OPERATOR_COMPONENT); 

-- initialize signatures to empty 

INraALIZE_THE_SIGNATURES(INPUT_SWITCH); 

-- iterate through the input parameters to get the 
— input parameter signature for this Operator 
ITERATE_THROUGH_INPUT_PARAMETERS(INPUT_PARAMETERS); 
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retrieve signature value 

TTERATE_THROUGH_OPERATOR_PARAMETERS_PKG 

GET_INPUT_SIGNATURE(INPUT_SIGNATURE); 



- get the Operator's output parameters 

OUTPUT_PARAMETERS := PSDL_COMPONENT_PKG.OUTPUTS(OPERATOR_COMPONENT); 

- initialize signatures to empty 

INTTLALrZE_THE_SIGNATURES(OUTPUT_SWITCH); 

-- iterate through the output parameters to get the 
-- output parameter signature for this Operator 
ITERATE_THROUGH_OUTPUT_PARAMETERS(OUTPUT_PARAMETERS); 

retrieve signature value 

ITER A T E_T HROU GH_0 PER AT ORPARAM ET ERS_PK G 

GET_OUTPUT_SIGNATURE(OUTPUT_SIGNATURE); 



exception 



when PROTOTYPE_FILE_NOT_FOUND => 

PUT_LINE(”*** THIS PROGRAM CANNOT CONTINUE ***"); 
raise ; 

when OPERATOR_FILE_NOT_FOUND => 

PUT_UNE( M *** THIS PROGRAM CANNOT CONTINUE ***"); 
raise ; 



when others => 

PUT_LINE(”*** THIS PROGRAM CANNOT CONTINUE ***"); 
raise ; 

end ENCODE_OPERATOR_SIGNATURE; 
end ENCODE_OPERATOR_SIGNATURE_PKG; 



********************************************************************************* 

********************************************************************************* 

********************************************************************************* 



-- Filename / Load_PSDL_Into_Ada_Structure_Pkg.a 

— Date / 29 August 93 

— Author / Scott Dolgoff 

— System / Sun SPARCstation 

— Compiler / Verdix Ada 

— Description / This program encodes provides the necessary routines 



from 



from 
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/ to load a PSDL specification into an Ada data structure. 
/ An Operator, Type, or a full blown Prototype PSDL 
/ specification can all be loaded. Normally the 
/ Prototype Specification can then be searched to 
/ extract specific Types by name. 

with PSDL_COMPONENT_PKG , PSDL_PROGRAM_PKG; 

use PSDL_COMPONENT_PKG, PSDL_PROGRAM_PKG; 

package LOAD_PSDL_INTO_ADA_STRUCTURE_PKG is 



- Provides access to the stored Operator component. 

procedure RETRIEVE_OPERATOR_COMPONENT(OP_COMPONENT : out 

PSDL_COMPONENT_PKG.OPERATOR); 



-- Provides access to the stored Type component. 

procedure RETRIEVE_TYPE_COMPONENT(TP_COMPONENT : out 

PSDL_COMPONENT_PKG.DATA_TYPE); 

-- Provides access to the stored prototype specification. 

procedure RETRlEVE_PROTOTYPE_SPEC(PROTOTYPE_SPEC out 

PSDL_PROGRAM_PKG . PSDL_PROGRAM ) ; 



-- exceptions 

— PSDL specification (text file) for the Operator is not in 

— the current directory 
OPERATOR_FILE_NOT_FOUND : exception; 

-- PSDL specification (text file) for the Type is not in 

— the current directory 

TYPE_FILE_NOT_FOUND : exception; 

— PSDL specification (text file) for the prototype is not in 

— the current directory 
PROTOTYPE jaLEJ^OT.FOUND : exception; 

end LOAD_PSDLJNTO_ADA_STRUCTURE_PKG; 



with TEXTJO, PSDL JO, PSDL_ID_PKG; 
use TEXTJO, PSDLJO, PSDLJD_PKG; 



package body LOAD_PSDL_INTO_ADA_STRUCTURE_PKG is 



-- procedure passed to generic scan procedure in generic map package 

- extracts the Operator from the PSDL specification (psdl _program) 

procedure GET_OPERATOR(ID : in PSDL_ID_PKG.PSDL_ID; 

COMPONENT : in PSDL_COMPONENT_PKG.PSDL_COMPONENT); 

-- iterate through the PSDL specification to extract the Operator. Even 

— though this PSDL specification only has one Operator (and no Types), it 

— is initially stored as a psdl ^program and we need it in the form of 

— a psdl_component to later extract the input and output parameters. 

procedure HhRATE_THROUGH_OPERATOR_PSDL_SPECIFICATION is new 

PSDL_PROGRAM_PKG.PSDL_PROGRAM_MAP_PKG.GENERIC_SCAN(GENERATE=>GET_OPERATOR); 



- procedure passed to generic scan procedure in generic map package 
~ extracts the Type from the PSDL specification (psdl _ program ) 

procedure GET_TYPE(ID : in PSDLJD_PKG.PSDL JD; 

COMPONENT : in PSDL^COMPONENT^PKG.PSDL^COMPONENT); 

- iterate through the PSDL specification to extract the Type . Even 

- though this PSDL specification is comprised of only one Type , it 

- is initially stored as a psdl _program and we need it in the form of 

- a psdljcomponent to later extract the input and output parameters of 

- the Type's operators. 

procedure ITERATE_THROUGH_TYPE_PSDL_SPEQFICATION is new 

PSDL_PROGRAM_PKG.PSDL_PROGRAM_MAP_PKG.GENERIC_SCAN(GENERATE=>GET_TYPE); 



PROTOTYPE_S PECI FIC ATION , OPERATOR.SPEC, TYPE_SPEC : 

PS DL_PROGRAM_PKG .PS DL_PROGR AM ; 

OPERATOR.COMPONENT 

PS DL_COM PONENT_PKG .OPERATOR ; 

TYPE.COMPONENT 

PSDL_COMPONENT_PKG.DATA_TYPE; 

TYPE_ID, OPERATORJD : PSDLJD^PKG.PSDLJD; 



— procedure passed to generic scan procedure in generic map package 

— extracts the Operator from the PSDL specification (psdl _ program ) 

procedure GET_OPERATOR(ID : in PSDL_ID_PKG.PSDL_ID; 

COMPONENT : in PSDL.COMPONENT.PKG.PSDL.COMPONENT) is 



begin 

OPERATORJD := ID; 
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OPERATOR_COMPONENT := COMPONENT; 
end GET_OPER ATOR ; 



— Loads OPERATORSPEC data structure with the PSDL specification 

— of the operator and then stores the operator in an OPERATORCOMPONENT 

— data structure. 

procedure GET_OPERATOR_COMPONENT is 

OPERATOR_FILE_N AME : constant STRING := "operator__psdI_spec.txt"; 

OPERATOR_FILE : TEXT_IO.FILE_TYPE; 

begin 



— open the file that contains the operator PSDL specification 

TEXT_IO.OPEN(OPERATOR_FILE, MODE => IN_FILE, NAME => OPERATOR_FILE_NAME); 

— parse the operator PSDL specification and insert it into 

— the Ada data structure OPERATOR_SPEC 

PSDL_IO.GET(OPERATOR_FILE, OPERATOR_SPEC); 

TEXT_IO.CLOSE(OPERATOR_FILE); 

— iterate through the PSDL specification to extract the Operator. 

— Though this PSDL specification only has one Operator (and no Types), 

— it's initially stored as a psdl jprogram and we need it in the form of 

— a psdl _component to later extract the input and output parameters. 

— The global variable OPERATOR COMPONENT receives the data. 

ITERATE_THROUGH_OPERATOR_PSDL_SPECIFICATION(OPERATOR_SPEC); 



exception 

when NAME ERROR => 
raise OPER ATOR_FI LE_N OT_FOU ND ; 

when others => 

PUT_LJNE("*** UNKNOWN ERROR: Occurred in procedure "); 
PU TJLINE(” Get_Oper ator_C omponen t . ' " ); 
raise ; 

end GETjDPERATOR_COMPONENT; 



— Provides access to the stored operator component. 

procedure RETRIEVE_OPERATOR_COMPONENT(OP_COMPONENT 

PSDL_COMPONENT_PKG.OPERATOR) is 



begin 

— Loads OPERATORJSPEC data structure with the PSDL specification 

— of the operator and then stores the operator in an OPERATOR JCOMPONENT 



— data structure . 

GET_OPERATOR_COMPONENT; 

OP.COMPONENT := OPERATOR.COMPONENT; 



exception 

when OPERATOR_FILE_NOT_FOUND => 

PUT_LJNE(”The file operator_psdl_spec.txt' is missing"); 
PUT_LINE("from the directory. It should contain the PSDL"); 
PUT_LINE("specification for the operator whose signature”); 
PUT_LINE("we are calculating.”); 
raise ; 

end RETRIEVE_OPERATOR_COMPONENT; 



-- procedure passed to generic scan procedure in generic map package 
- extracts the Type from the PSDL specification (psdl _program) 

procedure GET_TYPE(ID : in PSDL_ID_PKG.PSDL_ID; 

COMPONENT : in PSDL_COMPONENT_PKG.PSDL_COMPONENT) is 

begin 

TYPEJD := ID; 

TYPE_COMPONENT := COMPONENT; 
end GET_TYPE; 



— Loads TYPE SPEC data structure with the PSDL specification 

— of the Type and then stores the Type in a TYPE_COMPONENT 

— data structure. 

procedure GET_TYPE_COMPONENT is 

TYPE_FI LE_NAME : constant STRING := "type_psdl_spec.txt"; 

TYPE_FILE : TEXTJO.FILE_TYPE; 

begin 

— open the file that contains the Type PSDL specification 

TEXT_IO.OPEN(TYPE_FILE, MODE => IN_FILE, NAME => TYPE_FTLE_NAME); 

-- parse the Type PSDL specification and insert it into 

— the Ada data structure TYPE SPEC 

PSDL_IO.GET(TYPE_FILE, TYPE_SPEC); 

TEXT_IO.CLOSE(TYPE_FlLE); 
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— iterate through the PSDL specification to extract the Type. 

— Though this PSDL specification only has one Type, 

— it's initially stored as a psdl jprogram and we need it in the form of 

— a psdl _component to later extract the input and output parameters 
-- of the Type's operators. 

— The global variable TYPE_COMPONENT receives the data. 

ITERATE_THROUGH_TYPE_PSDL_SPECmCATION(TYPE_SPEC); 

exception 

when NAME.ERROR => 
raise TYPE_FILE_NOT_FOUND; 

when others => 

PUT.UNEC*** UNKNOWN ERROR: Occurred in procedure ”); 

PUTJJNE(”Getjrype_Component."); 

raise ; 

end GET_TYPE_COMPONENT ; 



- Provides access to the stored Type component. 

procedure R ETRI E VE_TYPE_C OM TONENT (TP_C OM PONENT 

PSDL_COMPONENT_PKG .DAT A_TYPE) is 

begin 



-- Loads TYPE_SPEC data structure with the PSDL specification 

— of the Type and then stores the Type in a TYPEjCOMPONENT 

- data structure. 

GET_TYPE_COMPONENT; 



TP_COM PONENT := TYPE_COMPONENT; 



exception 

when TYPE_FlLE_NOT_FOUND => 

PUT_LINE(”The file 'type_psdl_spec.txt’ is missing”); 
PUT_LINE(”from the directory. It should contain the PSDL”); 
PUT_UNE(”specification for the Type whose signature”); 
PUT_LENE(”we are calculating.”); 
raise ; 

end RETRIEVE_TYPE_COMPONENT; 



-- Loads PROTOTYPE SPEC data structure with the PSDL specification 
- of the prototype. 



out 
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procedure GET_PROTOTYPE_SPEC is 

PROTOTYPE_FILE_NAME : constant STRING := "prototype_psdl_spec.txt"; 

PROTOTYPE_FILE : TEXT_IO.FILE_TYPE; 

begin 

-- open the file that contains the prototype PSDL specification 

TEXTJO.OPEN(PROTOTYPE_FILE, MODE => INFILE, NAME => PROTOTYPE_FILE_NAME); 



-- parse the prototype PSDL specification and insert it into 
- the Ada data structure PROTOTYPE SPEC 
PSDL_IO.GET(PROTOTYPE_FILE, PROTOTYPE.SPECIFICATION); 

TEXT_IO.CLOSE(PROTOTYPE_FILE); 

exception 

when NAME_ERROR => 
raise PROTOT YPE_FILE_N OT_FOUND; 

when others -> 

PUT_LINE("*** UNKNOWN ERROR: Occurred in procedure "); 
PUT_LINE( M Get_Prototype_Spec . M ); 
raise ; 

end GET_PROTOTYPE_SPEC; 



— Provides access to the stored prototype specification. 

procedure RETRIEVE_PROTOTYPE_SPEC(PROTOTYPE_SPEC out 

PSDL_PROGRAM_PKG.PSDL_PROGRAM) is 



begin 



- loads PROTOTYPE_SPEC data structure with the PSDL specification 

— of the prototype 

GET_PROTOTYPE_SPEC; 

PROTOTYPE_S PEC := PROTOTYPE_SPECIFICATION; 
exception 

when PROTOTYPE J^LEJ^OTFOUND => 

PUT_LINE("The file prototype_psdl_spec.txt' is missing"); 

PUT_UNE("from the directory. It should contain the PSDL"); 

PUT_UNE("specification for the prototype system that"); 

PUT_LINE("the operator for which we are calculating a "); 

PUT_LINE("signature belongs."); 
raise ; 



end RETRIEVE_PROTOTYPE_S PEC ; 
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end LOAD_PSDL_INTO_ADA_STRUCTURE_PKG; 



********************************************************************************* 
*••***••**•••**•******•**•*••»****»**••» ***************************************** 
********************************************************************************* 



- Filename / Parameter_Iterator_Pkg.a 

- Date / 29 August 93 

- Author / Scott Dolgoff 

— System / Sun SPARCstation 

— Compiler /VerdixAda 

— Description / This program encodes the signatures 

/ of software components from their Prototype System 
/ Description Language ( PSDL) specifications. 

with PSDL_ID_PKG, PSDL_CONCRETE_TYPE_PKG, ADD_ADA_TYPE_TO_SIGNATURE_PKG, 
PSDL_COMPONENT_PKG, PSDL_PROGRAM_PKG; 

use PSDL_ID_PKG, PSDL_CONCRETE_TYPE_PKG, ADD_ADA_TYPE_TO_SIGNATXJRE_PKG, 
PSDL_COMPONENT_PKG, PSDL_PROGRAM_PKG; 

package ITERATE_THROUGH_OPERATOR_PARAMETERS_PKG is 



— procedure passed to generic scan procedure in generic map package 

— extracts the input parameters from the Type Declaration 

— map 

procedure GET_IN_PARAMETER(ID : in PSDLJD_PKG.PSDL_ID; 

TYPE.NAME : in PSDL_CONCRETE_TYPE_PKG.TYPE_NAME); 

— iterate through the Type Declaration map to extract the set of input 

- parameters. 

procedure ITERATE_THR0UGH_1NPUT_PARA METERS is new 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION_PKG.GENERIC_SCAN(GENERATE=>GET_lN_PAR 
AMETER); 



- procedure passed to generic scan procedure in generic map package 

- extracts the output parameters from the Type Declaration 

- map 

procedure GET_OUT_PAR AMETER (ID : in PSDL_ID_PKG.PSDL_ID; 

TYPE.NAME : in PSDL_CONCRETE_TYPE_PKG.TYPE_N AME); 
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— iterate through the Type Declaration map to extract the set of output 

- parameters. 

procedure ITHRATE_THROU GH_OUTPUT_PARAMETERS is new 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATIONJ ) KG.GENERIC_SCAN(GENERATE=>GETJ3UTJA 
RAMETER); 



— Encoded input and output signatures are returned by these 

— procedures. NOTE: the procedure ITERATE THROUGH _xxx_PARAMETERS 

— must be invoked first which encodes the signature value. 
procedure GETJNPUT_SIGNATURE(IN_SIGNATURE : out SIGNATURE); 
procedure GET_OUTPUT_SIGNATURE(OUT_SIGNATURE ; out SIGNATURE); 



- *** This MUST be called prior to encoding an Operator or Type 

- Signature. Sets initial signatures to all 0's. IO_SWITCH 

- tells the procedure whether you need to initialize the input 

- or output signature. 

procedure INmALIZE_THE_SIGNATURES(IO_SWTTCH ; IO_SWITCH_CLASSES); 

- gets the necessary component values needed for looking up 

- Ada type information 

procedure S END_C O MPONENT S ( M AIN_C O MPONENT : in 

PSDL_COMPONENT_PKG.PSDL_COMPONENT ; 

PROTO_SPEC : in PSDL_PROGRAM_PKG.PSDL_PROGRAM); 



end ITERATE_THROUGH_OPERATOR_PARAMETERS_PKG; 



with TEXT JO, ADA_RECOGNIZED_T\TES_PKG, DETERMLVE_THE_ADA_TYPE_PKG, 

TYPE_N AME_PKG , A.STRINGS; 

use TEXT JO, ADA_RECOGNIZED_TYPES_PKG, DETERMINE_TH E_AD A_T\TE_PKG, A.STRINGS; 
package body ITERATE_THROUGH_OPERATOR_PARAMETERS_PKG is 
INPUT.SIGNATURE, OUTPUT_SIGNATURE : SIGNATURE; 

GV_NAME, G V_UDT_N AM E : PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 



— gets the necessary component values needed for looking up 

- Ada type information 

procedure S END_COMI*ONENTS(MAIN_COMPONENT 

PSDL_COMPONENT_PKG.PSDL_COMK)NENT; 
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PROTONS PEC : in PSDL_PROGRAM_PKG.PSDL_PROGRAM) is 



begin 

PASS_COMPONENTS(MAIN_COMPONENT, PROTO JSPEC); 



end SEND.COMPONENTS; 



— Encoded input and closeness signatures are returned by this 

~ procedure. NOTE: the procedure ITERATE THROUGH _IN PUT PARAMETERS 

— must be invoked first which encodes the signature. 

procedure GETJNPUTJSIGNATURE(IN_SIGNATURE : out SIGNATURE) is 
begin 

IN.SIGNATURE := INPUT.SIGNATURE; 
end GETJNPUT_SIGNATURE; 



-- Encoded output signature is returned by this 

procedure. NOTE: the procedure 

ITERATE _THR O U GH_0 UT P UT_PARAMET ERS 

— must be invoked first which encodes the signature. 

procedure GET_OUTPUT_SIGNATURE(OUT_SIGNATU RE : out SIGNATURE) is 

begin 

OUTJSIGNATURE := OUTPUTJSIGNATURE; 
end GET_OUTPUT_SIGNATURE; 



-- initializes or resets signatures so new ones can be computed 

procedure INITIALIZE_THE_SIGNATURESaO_SWITCH : IO_SWITCH_CL ASSES) is 

begin 

case IO_SWITCH is 

when INPUT_PARAMETER => 

INITIALIZE_SIGNATURES(INPUT_SIGNATURE); 

when OUTPUT.PARAMETER => 

INmALIZE_SIGN ATURES(OUTPUT_SIG N ATURE); 

end case; 

end INITIALIZE_THE_SIGNATURES; 
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procedure ENCODE. AD A_TYPE_INTO_SIGNATURE(TYPE_NAME_ID : in PSDLJD.PKG.PSDL.ED; 

IO.S WITCH : in IO.SWITCH.CLASSES; 
GENERIC.TYPE : in BOOLEAN) is 



begin 

case IO.SWITCH is 



when IN PUT.P ARAMETE R => 

ADD. AD A.TYPE.TO.S IGN ATURE(TYPE_N AME.ID , INPUT.SIGN ATURE, IO.SWITCH, 
GENERIC.TYPE); 



when O UTPUT.P ARAMETER => 

ADD_ADA_TYPE_TO_SIGNATURE(TYPE_NAME_ID, OUTPUT.S IGN ATURE, IO.SWITCH, 
GENERIC.TYPE); 



end case; 



end ENCODE.ADA.TYPE.INTO.SIGNATURE; 



— procedure passed to generic scan procedure in generic map package 
-- extracts the input parameters from the Type Declaration 

— map . NOTE that this procedure will be run once for each input 

— parameter as the entire set of input parameters is iterated through . 

procedure GET_IN_PARAMETER(ID : in PSDL_ID_PKG.PSDL.ID; 

TYPE.NAME : in PSDL_CONCRETE_TYTE_PKG.TYPE.NAME) is 



-- User Defined Type (UDT) type name 

UDT.TYPE.NAME, G ENERIC.TYPE.N AME , ELEMENT.TYPE, INDEX.TYPE, TH E.TYPE.N AM E 
PSDL_CONCRETE_TYPE_PKG.TYPE.NAME; 

IO.SWITCH 

IO.SWITCH.CLASSES; 

GENERIC.TYPE, FOUND.TYPE : 

BOOLEAN; 

O PER ATO R.COMPONENT : 

DETERMINE_THE_ADA_TYPE_PKG.COMPONENT.TYPE := OPERATOR.COMP; 



begin 

IO.SWITCH := INPUT.P ARAMETER; 

THE_TYPE_NAME := TYPE.NAME; 

GENERIC.TYPE := FALSE; 

if RECOGNIZED. AD A_TYPE(THE_TYPE_NAME.N AME) then 
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— Input parameter is a valid Ada type so go ahead and encode 

- the current Input Signature with this Ada type. 

TH E_TYPE_N AM E. N A ME := A_STRINGS.LOWER_TO_UPPER(THE_TYPE_NAME.NAME); 
ENC0DE_ADA_TYPE_INT0_S1GNATURE(THE_TYPE_NAME.NAME, IO_SWITCH, 
GENERIC_TYPE); 



else 

— Maybe the parameter is defined in the generics of the 
-- Operator component. 

CHECK_GENERICS(OPERATOR_COMPONENT, TH E_TYPE_NAME, GENERIC_TYPE_NAME, 
FOUND_TYPE); 

if FOUND_TYPE then 

— The type is either not composite or even if composite, 

-- will not be further specified by its components so 

— go ahead and encode. 

UDT_TYPE_NAME := GENERIC_TYPE_NAME; 

GENERIC_TYPE := TRUE; 

else — The parameter must be a user defined type so 
- get its type. 

G ET_U S ER_DEFINED_TYPE(TH E_TYPE_N AME , UDT_TYPE_NAME); 
end if; 

UDT_TYPE_NAME.NAME := A_STRINGS.LOWER_TO_UPPER(UDT_TYPE_NAME.NAME); 

-- go ahead and encode into the current Input ^Signature. 
ENCODE_ADA_TYPE_INTO_SIGNATURE(UDT_TYPE_NAME.NAME > IO_S WITCH, 
GENERIC_TYPE); 



end if; 



exception 



when others => 

PUTJLINEC’*** ERROR: OCCURED IN procedure GETJN PARAMETER. "); 

NEWJJNE; 

raise ; 



end G ET_IN_PA RAMETER ; 



— procedure passed to generic scan procedure in generic map package 

— extracts the output parameters from the Type Declaration 

— map. NOTE that this procedure will be run once for each output 

— parameter as the entire set of output parameters is iterated through. 
procedure GET_OUT_PARAMETER(ID ; in PSDL_ID_PKG.PSDL_ID; 

TYPE_NAME : in PSDL_CONCRETE_TYPE_PKG.TYPE_NAME) is 
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— User Defined Type (UDT) type name 

U DT_TYPE_N AM E , GENERIC JTYPE_NAME, ELEMENT_TYPE, INDEX_TYPE, THE_TYPE_NAME : 
PSDL_CONCRETE_TYPE_PKG .TYPE.N AME; 

IO_SWITCH 

IO_SWITCH_CLASSES; 

GENERIC_TYPE, FOUND_TYPE : 

BOOLEAN; 

OPERATOR.COMPONENT 

DETERMINE_THE_ADA_TYPE_PKG.COMPONENT_TYPE := OPERATOR.COMP; 



begin 

IO_S WITCH := OUTPUT_PARAMETER; 

THE_TYPE_N AM E := TYPE_NAME; 

GENERIC.TYPE := FALSE; 

if RECOGNIZED_ADA_TYPE(THE_TYPE_NAME.NAME) then 

— Output parameter is a valid Ada type so go ahead and encode 

— into the current Output _Signature. 

THE_TYPE_NAME.NAME := A_STRINGS.LOWER_TO_UPPER(THE_TYPE_NAME.NAME); 
ENCODE_ADA_TYPE_INTO_SIGNATURE(THE_TYPE_NAME.NAME,IO_SWITCH f 
GENERIC_TYPE); 

else 

-- Maybe the parameter is defined in the generics of the 

— Operator component. 

CHECK_GENERICS(OPERATOR_COMPONENT. THE_TYPE_NAME, GENERIC_TYPE_NAME, 
FOUND.TYPE); 

if FOUND_TYPE then 

- The type is either not composite or even if composite, 

— will not be further specified by its components so 
-- go ahead and encode. 

UDT_TYPE_NAME := GENERIC_TYPE_NAME; 

GENERIC_TYPE := TRUE; 



else - The parameter must be a user defined type so 
— get its type. 

GET_USER_DEFINED_TYPE(THE_TYPE_NAME, UDT_TYPE_NAME); 
end if; 



UDT_TY PE_N AME.N AME := A_STRIN G S . LO WER_TO_U PPER( U DT_TYPE_N AME .N AME) ; 

- Go ahead and encode . 

ENCODE_ADA_TYPE_INTO_SIGNATURE(UDT_TYPE_NAME.NAME,IO_SWITCH, 
GENERIC_TYPE); 
end if; 
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exception 



when others => 

PUT_UNE("*** ERROR: OCCURED IN procedure GET_OUT_PARAMETER. ”); 

NEW.LINE; 

raise ; 

end GET_OUT_PARAMETER; 

end ITERATE_THROUGH_OPERATOR_PARAMETERS_PKG; 



****************** ******************************************************* ******** 
********************************************************************************* 
********************************************************************************* 



- Filename / Parameter_List_Pkg.a 

-- Date / 12 Aug 93 

-- Revised 1 15 Aug 93 

-- Author / Scott Dolgoff 

- System / Solbourne 

- Compiler / Verdix Ada 

- Description / This package provides a data structure for storing 

/ parameter lists and the operations necessary to 
/ be performed on the data structure. The structure 
/ contains some attributes that are particular to one of 
/ the following three categories - (a) query component 
/ input and output parameters, (b) software base 
/ component input and output parameters, and (c) software 
/ base component generic parameters. 

/ The parameter lists are used during the component 
/ transformation process to help establish a final 
/ mapping of parameter types between the query 
/ and software base components. 



with PSDLJD_PKG; 
use PSDL_ID_PKG; 

package PARAMETER_LIST_PKG is 



type PARAMETER_UST_NODE; 

type PARAMETERS is access PARAMETER_LIST_NODE; 
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type PARAMETER_LIST_NODE is record 
-- parameter identifier name 
ID : PSDL_ID_PKG.PSDL_ID; 

- parameter type name 

THE_TYPE : PSDL_ID_PKG.PSDL_ID; 

-- array element type name (only used ifTHEfTYPE is an array) 
ARRAY_ELEMENT_PTR : PARAMETERS; 

-- array index type name ( only used if THE TYPE is an array) 
ARRAY_INDEX_PTR : PARAMETERS; 

- pointer to the parameter in other component that this 

- parameter is mapped to. null indicates no mapping. For 

- generic parameters this will also help locate the Ada 

- type the generic is instantiated with. 

MAPPING ; PARAMETERS := null; 



- link 

NEXT : PARAMETERS := null; 

-- user defined type (UDT). It is necessary to record a 

- UDT referenced by a parameter. Certain UDTs will be 

- of an Ada type that must be either constrained (i.e. like 

- Range or better defined (i.e. like Record). If these 

- UDTs are used to instantiate a generic, then they must 

- be used exactly as implemented in the protype to make 

- use of their constraint or definition information. Thus 
-- in the transformation shell their Ada specification 

- packages must be ”with"ed and their names referred to 

- explicitly. 

UDT : PSDL_ID_PKG.PSDL_ID; 

- indicates whether THE TYPE came from a UDT 

HASJJDT : BOOLEAN -FALSE; 

- This attribute is used only by sbc components. It names 

- he generic parameter that this sbc parameter is 

- defined by (if any) 

GENERIC JD : PSDL_ID_PKG.PSDLJD; 

- This attribute is used only by sbc components. It is a 

- pointer to the generic parameter that this sbc parameter 

- is defined by (if any) 
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GENERIC_LINK 



: PARAMETERS := null; 



— Indicates whether the sbc component parameter is defined by 

— a generic parameter in the sbc component. 

DEFINED_B Y_G EN ERIC_TYPE : BOOLEAN := FALSE; 

end record; 



-- takes an index position and returns the parameter in the list 
- corresponding to that index position 
function PARAMETER_AT_IND EX (INDEX ; INTEGER; 

LIST : PARAMETERS) return PARAMETERS; 



- determines whether any parameters in the list are defined by 

- generics 

function HAS_GENERIC_PARAMETERS(LIST : PARAMETERS) return BOOLEAN; 



— determines how many parameters are in the list 

function P ARAM ETE R_ C O UNT ( LIS T : PARAMETERS) return INTEGER; 



end PARAMETER_LIST_PKG; 



package body PARAMETER_UST_PKG is 



- corresponding to that index position 

function PARAMETER_AT_INDEX(INDEX ; INTEGER; 

LIST : PARAMETERS) return PARAMETERS is 

LIST_PTR : PARAMETERS := LIST; 

begin 

if LIST_PTR /= null then 

for POSITION in 1 .. (INDEX - 1) loop 

UST.PTR := UST.PTR.NEXT; 
if (UST_PTR = null and POSITION < (INDEX - 1)) then 
return LIST_PTR; 
end if; 

end loop; 
end if; 
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return LIST_PTR; 



end PARAMETER_AT_INDEX; 



— determines whether any parameters in the list are defined by 

- generics 

function HAS_GENERIC_PARAMETERS(LJST : PARAMETERS) return BOOLEAN is 

HAS_GENERICS : BOOLEAN := FALSE; 

PTR : PARAMETERS := UST; 

begin 

while ((not HAS_GENERICS) and (PTR /= null)) loop 

if PTR.DEFINED_BY_GENERIC_TYPE then 
HAS.GENERICS := TRUE; 

else 

PTR := PTR .NEXT; 
end if; 

end loop; 

return HAS_GENERICS; 
end HASJ3ENERIC_PARAMETERS; 



— determines how many parameters are in the list 

function PARAMETER_COUNT(LIST : PARAMETERS) return INTEGER is 

PTR : PARAMETERS := LIST; 

COUNT : INTEGER := 0; 

begin 

while (PTR /= null) loop 

COUNT := COUNT + 1; 

PTR := PTR. NEXT; 

end loop; 
return COUNT; 
end PARAMETER_COUNT; 
end PARAMETER_UST_PKG; 
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********** *********************************************************************** 
********************************************************************************* 
********************************************************************************* 



-- Filename / ParameterMappingPkg.a 

— Dtttc / 72 y4wg 93 

-- Revised / 18 Aug 93 

— Author / Scott Dolgoff 

— System / Solbourne 

— Compiler / Verdix Ada 

— Description / This package provides routines that help in the 

/ process of determining whether a query component 
/ parameter type correctly maps to a software base 
/ component parameter type. 

with PARAMETER_LIST_PKG; 
use PARAMETER_LJST_PKG; 

package PARAMETER_MAPPING_PKG is 



— determines whether a query and software base component input 

- parameter validly map to each other based on their Ada type. 

function INPUT_PARAMETER_TYPES_MAP_OK(QC_PARAMETER : PARAMETERS; 

SBC_PARAMETER : PARAMETERS) 
return BOOLEAN; 



— determines whether a query and software base component output 

— parameter validly map to each other based on their Ada type. 

function OUTPUT_PARAMETER_TYPES_MAP_OK(QC_PARAMETER ; PARAMETERS; 

SB C_P ARAM ETER : PARAMETERS) 
return BOOLEAN; 



end PARAMETER_M APPIN G_PKG ; 



with TEXT JO, ADA_RECOGNIZED_TYPES_PKG, A_STRINGS, PSDL_1D_PKG; 
use TEXT JO, ADA_RECOGNIZED_TYPES_PKG, A.STRINGS, PSDL_ID^PKG; 

package body PARAMETER_M APPIN G_PKG is 
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-- determines which array component, element or index, to deal with 

type ARRAY_COMP_SWITCH is (ELEMENT, INDEX); 

INV ALJD_AD A_TYPE : exception; 



- load the String array components into their respective 

- slots in the pointer node 

function LOAD_STRING._COMPONENT(SWITCH : ARRAY_COMP__S WITCH) 

return PSDL_ID_PKG.PSDLJD is 

NEW_NODE : PSDL_ID_PKG.PSDL_ID; 

begin 

case SWITCH is 
when ELEMENT => 

NEW_NODE := new A_STRINGS.STRING_REC(9); 

NEW_NODE.S := CHARACTER_TYPE; 

when INDEX => 

NEW.NODE := new A_STRINGS.STRING_REC(8); 

NEW_NODE.S := POSITIVE_TYPE; 

end case; 

return NEW_NODE; 
end LOAD_STRING_COMPONENT; 



-- checks a mapping on the array component determined by the 
- switch 

function CHECK_INPUT_ARRAY_COMPONENTS(QC_PARAMETER : PARAMETERS; 

SB C_PARAMETER : PARAMETERS; 
SWITCH : ARRAY_COMP_SWTTCH) 
return BOOLEAN is 

SBCJITPE_NAME, QC_TYPE_NAME : PSDL_ID_PKG.PSDL_ID; 

M AP_IS_ V A LID : BOOLEAN := FALSE; 



begin 

case SWITCH is 

-- special attention must be given to Strings since they 

— do not have their components predefined ... so we must 

— define the String components in order to compare them 
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-- with an array's components 

when ELEMENT => 

if (QC_PARAMETER.THE_TYPE.S /= STRING_TYPE) then 
QC_TYPE_NAME := 

A_STRINGS . LO WER_TO_U PPER(QC_PA RAMETER . ARR A Y_ELEMENT_PTR .TH E_TYPE) ; 
else 

QC_TYPE_NAME := LOAD_STRING_COMPONENT(SWITCH); 
end if; 

if (SBC_PARAMETER.THE_TYPE.S /= STRING_TYPE) then 
SB C_TYPE_NAME := 

A_STRINGS.LOWER_TO_UPPER(SBC_PARAMETER.ARRAY_ELEMENT_PTR.THE_TYPE); 

else 

SB C_TYPE_NAME := LOAD_STRING_COMPONENT(SWITCH); 
end if; 

when INDEX => 

if (QC_PARAMETER.THE_TYPE.S /= STRING.TYPE) then 
QC_TYPE_NAME := 

A_STRINGS.LOWER_TO_UPPER(QC_PARAMETER.ARRAY_INDEX_PTR.THE_TYPE); 

else 

QC_TYPE_NAME := LOAD_STRING_COMPONENT(SWrrCH); 
end if; 

if ( SB C_PARAMETER .THE_TYPE. S /= STRING.TYPE) then 
SBC_TYPE_NAME ;= 

A_STRINGS.LOWER_TO_UPPER(SBC_PARAMETER.ARRAY_INDEX_PTR.THE_TYPE); 

else 

SB C_TYPE_N AME := LOAD_STRING_COMPONENT(S WITCH); 
end if; 



end case; 



if (PRIVATE.TYPE = QC_TYPE_NAME.S) then 

if (PRIV ATE_TYPE = SBC_TYPE_NAME.S) then - regular 

- or 

- generic 

- Private 

MAP_IS_VAUD := TRUE; 
end if; 

elsif (DISCRETE_TYPE = QC_TYPE_NAME.S) then 
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if (((PRIVATE_TYPE = SBC_TYPE_NAME.S) and - generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) or - Private 

(DISCRETE.TYPE = SBC_TYPE_NAME.S)) then 
MAP_IS_VA1ID := TRUE; 
end if; 



elsif (INTEGER.TYPE = QC_TYPE_N AME.S) then 
if (( ( PRIV ATE_TYPE = SBC_TYPE_NAME.S) and - generic 

(sbc_parameter.defined^by^generic_type)) or - Private 

(DISCRETE_TYPE = SBC_TYPE_NAME.S) or (INTEG ER_TYPE = 
SBC_TYPE_NAME.S)) then 
MAP_IS_VAUD := TRUE; 
end if; 



elsif (RANGE.TYPE = QC_TYPE_NAME.S) then 

if (((PRIVATE_TYPE = SBC_TYPE_N AME.S) and - generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) or ~ Private 

(DISCRETE.TYPE = SBC_TYPE_NAME.S) or (INTEGER_TYPE = 
SBC_TYPE_NAME.S) or (RANGE.TYPE = SBC_TYPE_NAME.S)) then 
MAPJSJ/ALID := TRUE; 
end if; 



elsif (NATURAL.TYPE = QC_TYPE_NAME.S) then 
if (((PRIVATE.TYPE = SBC_TYPE_NAME.S) and - generic 

(sbc_parameter.deftned_by_generic_type)) or - Private 

(DISCRETE.TYPE = SBC_TYPE_NAME.S) or (INTEGER_TYPE = 
SBC_TYPE_NAME.S) or (RANGE_TYPE = SBC _TYPE_NAME.S) or 
(N ATUR AL_TYPE = SBC_TYPE_N AME.S)) then 
MAPJS.VAUD := TRUE; 
end if; 



elsif (POSITIVE_TYPE = QC_TYPE_NAME.S) then 
if (((PRIVATE_TYPE = SBC_TYPE_NAME.S) and - generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) or - Private 

(DISC RETE_T YPE = SB C_TYPE_N AME.S) or (INTEGER_TYPE = 
SBC_TYPE_NAME.S) or (RANGE_TYPE = SB C_TYPE_N AME.S) or 
(NATURAL_TYPE = SB C_TYPE_N AME.S) or (POSITIVEjrYPE = 

SB C_TYPE_N AME.S)) then 
MAP_IS_VAUD := TRUE; 
end if; 



elsif (ENUMERATION JTYPE = QC_TYPE_NAME.S) then 
if (((PRIV ATE_T YPE = SBC_TYPE_N AME.S) and - generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) or - Private 

(DISCRETE.TYPE = SB C_TYPE_N AME.S) or (ENUMERATION.TYPE = 
SBC_TYPE_N AME.S)) then 
MAP_IS_VAUD := TRUE; 
end if; 



elsif (CHAR ACTE R_TYPE = QC_TYPE_N AME . S ) then 
if (((PRIV ATE_T YPE = SBC_TYPE_N AME.S) and - generic 

(SBc_parameter.defined_by_generic_type)) or ~ Private 



240 



(DISCRETE_TYPE = SB C_TYPE_N AME. S) or (ENUMERATION.TYPE = 
SBC_TYPE_NAME.S) or (C H ARACTER_TYPE = 

SBC_TYPE_NAME.S)) then 
MAP_IS_VAUD := TRUE; 
end if; 

elsif (BOOLEAN_TYPE = QC_TYPE_NAME.S) then 
if (( ( PRTV ATE_T YPE = SBC_TYPE_NAME.S) and -- generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) or -- Private 

(DISCRETE_TYPE = SBC_TYPE_NAME.S) or (ENUMERATION_TYPE = 
SBC_TYPE_NAME.S) or (BOOLEAN_TYPE = SBC_TYPE_NAME.S)) then 
MAP_IS_VALID := TRUE; 
end if; 

elsif (RECORD_TYPE = QC_TYPE_NAME.S) then 
if (((PRTVATE_TYPE = SBC_TYPE_NAME.S) and - generic 

(SBC_parameter.defined_by_generic_type)) or (RECOrd.type = - Private 

SBC_TYPE_NAME.S)) then 
MAP_IS_VAUD := TRUE; 
end if; 

elsif ( AC CESS_T YPE = QC_TYPE_NAME.S) then 
if ((( PRTV ATE_T YPE = SBC_TYPE_NAME.S) and - generic 

(sbc^parameter.defined_by_generic__type)) or (accessjtype = - Private 

SBC_TYPE_NAME.S)) then 
MAP_IS_VAUD := TRUE; 
end if; 

elsif (ARRAY.TYPE = QC_TYPE_NAME.S) then 

if ((( PRTV ATE_T YPE = SBC_TYPE_NAME.S) and - generic 

(sbc_parameter.defined_by_generic_type)) or (array.type = - Private 

SBC_TYPE_NAME.S)) then 
MAP_IS_VALID := TRUE; 
end if; 

elsif (STRING_TYPE = QC_TYPE_NAME.S) then 

if (((PRTV ATE_TYPE = SBC_TYPE_NAME.S) and - generic 

( SB C_P ARAMETER .DEFINED_B Y_GENERIC_TYPE) ) or (ARRAY_TYPE = - Private 

SBC_TYPE_NAME. S) or (STRING_TYPE = SBC_TYPE_NAME.S)) then 
MAP_IS_VAUD ;= TRUE; 
end if; 

elsif (DIGITS_TYPE = QC_TYPE_NAME.S) then 
if (((PRIVate_type = sbc_type_name.s) and - generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) or (DIGITS.TYPE = - Private 
SBC_TYPE_NAME.S)) then 
MAP_IS_VALID ;= TRUE; 
end if; 

elsif (FLOATTYPE = QC_TYPE_NAME.S) then 

if (((PRTV ATE_TYPE = SBC_TYPE_NAME.S) and - generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) or (DIGITS_TYPE = - Private 
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SBC_TYPE_NAME.S) or (FLOAT.TYPE = SBC_TYPE_NAME.S)) then 
MAP_IS_VALID := TRUE; 
end if; 

elsif (DELTA.TYPE = QC_TYPE_NAME.S) then 

if (((PRIVATE_TYPE = SBC_TYPE_NAME.S) and - generic 

(SBC_PARAMETER.DEFINED_B Y_GENERIC_TYPE)) or (DELTA.TYPE = - Private 

SBC_TYPE_NAME.S)) then 
MAP_IS_VALID := TRUE; 
end if; 



elsif (FEXED_TYPE = QC_TYPE_NAME.S) then 

if (((PRIVATE.TYPE = SBC_TYPE_NAME.S) and - generic 

(SBC_PARAMETER.DEFINED_B Y_GENERIC_TYPE)) or (DELTA_TYPE = - Private 

SBC_TYPE_NAME.S) or (FIXED_TYPE = SBC_TYPE_NAME.S)) then 
MAPJS.VALID ;= TRUE; 
end if; 



- unknown 

type 
passed 

end if; 

return MAP_IS_VALID; 



else 



raise INVALID_ADA_TYPE; 



exception 



when INVALID_ADA_TYPE => 

PUTJJNEf"*** ERROR: INVALID ADA TYPE DISCOVERED FOR -”); 

PUT JJNEf ” & QC_PARAMETER.ID.S & " : " & QC_TYPE_NAME.S); 

PUT_LINE( M A Type MUST BE DEFINED AS AN ADA TYPE. IT CAN REFERENCE”); 
PUT_LINE( M INFORMATION IN ITS GENERIC PARAMETERS, BUT CANNOT”); 
PUTJJNEfREFERENCE DEFINITION INFORMATION OUTSIDE ITS OWN”); 
PUT_LINE("SPECIFICATION. A Generic PARAMETER MUST BE FULLY ”); 
PUT_UNE(” DEFINED AS AN ADA TYPE. IT CANT EVEN REFERENCE OTHER ”); 
PUT_UNE("DEFINITIONS WITHIN ITS GENERICS.”); 

NEWJJNE; 
raise ; 



when others => 

PUT_LINE( M *** UNKNOWN ERROR: OCCURED IN procedure ”); 
PUT_LINE(" CHECK_INPUT_ARRAY_COMPONENTS. ”); 

NEWLINE; 
raise ; 

end CHECK_INPUT_ARRAY_COMPONENTS; 
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— determines whether a query and software base component input 

- parameter validly map to each other based on their Ada type. 

function INPUT_PARAMETER_TYPES_MAP_OK(QC_PARAMETER : PARAMETERS; 

SBC_PARAMETER : PARAMETERS) 
return BOOLEAN is 

SBC JTYPE_NAME, QC JTYPE.NAME : PSDLJD_PKG.PSDL_ID; 

MAP JS_ V ALID : BOOLEAN := FALSE; 

ELEMENT_S WITCH : ARRAY_COMP_SWITCH := ELEMENT; 

IN DEX_S WITCH : ARRAY_COMP_S WITCH := INDEX; 



begin 



QC_TYPE_NAME := A_S TRIN G S . LO WE R_TO_UPP ER (QC_P ARAMETER .TH E_TYPE) ; 
SBC_TYPE_NAME := A_STRINGS.LOWER_TO_UPPER(SBC_PARAMETER.THE_TYPE); 



if (PRIVATE_TYPE = QC_TYPE_NAME.S) then 

if (PRIVATE_TYPE = SBC_TYPE_NAME.S) then -- regular 

— or 

- generic 
— Private 

MAP_IS_VAUD := TRUE; 
end if; 

elsif (DISCRETEJTYPE = QC_TYPE_NAME.S) then 
if (( (PRTV ATE_T YPE = SBC_TYPE_NAME.S) and - generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYI :> E)) or - Private 

(DISCRETE_TYPE = SBC_TYPE_NAME.S)) then 
MAP JS_ VALID := TRUE; 
end if; 

elsif (INTEGER_TYPE = QC_TYPE_NAME.S) then 
if (((PRTVATE_TYPE = SBC_TYPE_NAME.S) and - generic 

(SBC_parameter.defined_by_generic_type)) or -- Private 

(DISCRETE_TYPE = SBC_TYPE_NAME.S) or (INTEGER_TYPE = 
SBC_TYPE_NAME.S)) then 
MAP_IS_VALID := TRUE; 
end if; 

elsif (RANGE.TYPE = QC_TYPE_NAME.S) then 

if (((PRTVATE_TYPE = SBC_TYPE_NAME.S) and - generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) or - Private 

(DISCRETE_TYPE= SBC_TYPE_NAME.S) or (INTEGER_TYPE = 
SBC_TYPE_NAME.S) or (RANGE_TYPE = SBC_TYPE_NAME.S)) then 
MAP_IS_VALID := TRUE; 
end if; 

elsif (NATURAL.TYPE = QC_TYPE_NAME.S) then 
if (((PRTV ATE_T YPE = SBC_TYPE_NAME.S) and - generic 
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(SBC_PARAMETER.DEF1NED_BY_GENERIC_TYPE)) or - Private 

(DISC RETE_TYP E = SBC_TYPE_NAME.S) or (INTEGER_TYPE = 
SBC_TYPE_NAME.S) or (N ATU RAL_TYPE = SBC_TYPE_NAME.S» then 
MAP_IS_VALED := TRUE; 
end if; 



elsif (POSITIVEjrYPE = QC_TYPE_NAME.S) then 
if (((PRIV ATE_T YPE = SBC_TYPE_NAME.S) and - generic 

(SBC_PARAMETER.DEFINED_BY^GENERIC_TYPE)) or - Private 

(DISCRETE.TYPE = SBC_TYPE_NAME.S) or (INTEGER.TYPE = 

SBC_TYPE_NAME.S) or (NATURAL_TYPE = SBC_TYPE_NAME.S) or 
(POSmVE.TYPE = SBC_TYPE_NAME.S)) then 
MAP_IS_ VALID := TRUE; 
end if; 

elsif (ENUMERATION.TYPE = QC_TYPE_NAME.S) then 
if (( (PRTV ATE_T YPE = SBC_TYPE_NAME.S) and - generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) or - Private 

(DISCRETE_TYPE = SBC_TYPE_NAME.S) or (ENUMERATION.TYPE = 
SBC_TYPE_NAME.S)) then 
MAP_IS_ V ALJD := TRUE; 
end if; 

elsif (CHARACTER.TYPE = QC_TYPE_N AM E. S ) then 
if (((PRIVATE_TYPE = SBC_TYPE_NAME.S) and - generic 

(SBC_parameter.defined_by_generic_type)) or ~ Private 

(DISCRETE JTYPE = SBC_TYPE_NAME.S) or (ENUMERATION.TYPE = 
SBC_TYPE__NAME.S) or (CHARACTER.TYPE = 

SBC_TYPE_NAME.S)) then 
MAP JS_V ALJD := TRUE; 
end if; 

elsif (BOOLEAN.TYPE = QC_TYPE_NAME.S) then 
if (((PRIV ATE_TYPE = SBC_TYPE_NAME.S) and - generic 

( SB C_P AR AMETER. DEFINED_B Y_GENERIC_TYPE)) or - Private 

(DISC RETE_TYPE = S B C_TYPE_N AME . S ) or (ENUMERATION.TYPE = 
SBC_TYPE_NAME.S) or (B OOLE AN_TYPE = SBC_TYPE_NAME.S)) then 
MAP.IS.VAUD := TRUE; 
end if; 

elsif (RECORD_TYPE = QC_TYPE_NAME.S) then 
if (((PRIV ATE_TYPE = SBC_TYPE_NAME.S) and - generic 

(SBC_parameter.defined_by_generic_titE)) or (RECORD_type = -- Private 

SBC_TYPE_NAME.S)) then 
MAP_IS_V ALID ;= TRUE; 
end if; 



elsif (ACCESS_TYPE = QC_TYPE_NAME.S) then 

if (((PRIV ATE_T YPE = SB C_TYPE_N AME . S ) and - generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) or (ACCESS_TYPE = -- Private 
SBC_TYPE_NAME.S)) then 
MAP_IS_VAUD := TRUE; 
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end if; 



elsif (ARRAY_TYPE = QC_TYPE_NAME.S) then 
if (((PRIVATE_TYPE = SBC_TYPE_NAM E.S) and - generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) or - Private 

(((STRING JTYPE = SBC_TYPE_NAME.S) or (ARRAY_TYPE = 

SBC_TYPE_N AME.S)) and then 

(CHECK_INPUT_ARRAY_COMPONENTS(QC_PARAMETER, SBC_PARAMETER, 
ELEMENT_SWITCH) and 

CHECK_INPUT_ARRAY_COMPONENTS(QC_PARAMETER, SB C_PAR AMETER , 
INDEX_SWITCH)))) then 

MAP_IS_VALID := TRUE; 
end if; 

elsif (STRING.TYPE = QC_TYPE_NAME.S) then 

if (((PRIVATEJTYPE = SBC_TYPE_N AME.S) and - generic 

(SBC_PARAMETER.DEFINED_B Y_GENERIC_TYPE)) or (STRING JTYPE = - Private 
SBC_TYPE_NAME.S) or ((ARRAY JTYPE = 

SB C_TYPE_N AME.S) and then 

(CHECK JNPUT_ARRAY_COMPONENTS(QC_PARAMETER, SBC.PARAMETER, 
ELEMENT_SWITCH)) and then 

(CHECK_INPUT_ARRAY_COMPONENTS(QC_PARAMETER t SBC.PARAMETER, 
INDEX.SWITCH))) or (STRING JTYPE = SB C_TYPE_N AME.S)) then 
MAP_IS_V ALID ;= TRUE; 
end if; 

elsif (DIGITS_TYPE = Q C_TYPE_N AME.S ) then 

if (((PRIVATEJTYPE = SB C_TYPE_N AME.S) and -- generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) or (DIGITS_TYPE = -- Private 
SBC_TYPE_NAME.S)) then 
MAP_IS_VAUD := TRUE; 
end if; 

elsif (FLOAT_TYPE = QC_TYPE_N AME.S) then 

if (((PRIVATEJTYPE = SBC_TYPE_N AME.S) and ~ generic 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) or (DIGITS_TYPE = - Private 
SBC_TYPE_N AME.S) or (FLOAT_TYPE = SBC_TYPE_NAME.S)) then 
MAP_IS_VAUD := TRUE; 
end if; 

elsif (DELTA_TYPE = QC_TYPE_N AME.S) then 

if (((PRIVATEJTYPE = SBC_TYPE_NAME.S) and - generic 

(SBC_PARAMETER. DEFINED_B Y_GENERIC_TYPE)) or (DELTAJTYPE = - Private 

SBC_TYPE_NAME.S)) then 
MAP_IS_VAUD := TRUE; 
end if; 

elsif (FIXED JTYPE = QC_TYPE_N AME.S) then 

if (((PRIVATE JTYPE = SBC_TYPE_NAME.S) and - generic 

( S B C_P ARAMETER .D EFINED_B Y_GENER1C_TYPE) ) or (DELTAJTYPE = - Private 

SBC_TYPE_N AME.S) or (FIXED_TYPE = SB C_TYPE_N AME.S)) then 
MAP_IS_V AOD := TRUE; 
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end if; 



else — unknown 

-type 

- passed 

raise INVALID_ADA_TYPE; 
end if; 



return MAP_IS_ VALID; 



exception 



when INVALID_ADA_TYPE => 

PUT_LINE(”*** ERROR: INVALID ADA TYPE DISCOVERED FOR 
PUT_LINE(” " & QCJPARAMETERID.S & M : " & QC_TYPE_NAME.S); 
PUT_LJNE(”A Type MUST BE DEFINED AS AN ADA TYPE. IT CAN REFERENCE”); 
PUT_LJNE( "INFORMATION IN ITS GENERIC PARAMETERS, BUT CANNOT”); 
PUT_LTNE(”REFERENCE DEFINITION INFORMATION OUTSIDE ITS OWN”); 
PUT_LINE("SPECIFICATION. A Generic PARAMETER MUST BE FULLY ”); 
PUT_LINE( ’’DEFINED AS AN ADA TYPE. IT CANT EVEN REFERENCE OTHER ”); 
PUT_LINE(”DEFINITIONS WITHIN ITS GENERICS.”); 

NEWJJNE; 
raise ; 



when others => 

PUT_LINE(’’*** UNKNOWN ERROR: OCCURED IN procedure ”); 
PUT_LINE(” INPUT_P A RAM ETER_TYPES_M AP_0 K. ”); 

NEWJJNE; 
raise ; 

end INPUT_PARAMETER_TYPES_NIAP_OK; 



-- checks a mapping on the array component determined by the 
- switch 

function CHECK_OUTPUT_ARRAY_COMPONENTS(QC_PARAMETER : PARAMETERS; 

SBC_PARAMETER : PARAMETERS; 
SWITCH ; ARRAY_COMP_SWITCH) 
return BOOLEAN is 



SBC_TYPE_NAME, QC_TYPE_NAME : PSDLJD JPKG.PSDLJD; 
M AP_IS_V ALID : BOOLEAN := FALSE; 

INVALID J^C : BOOLEAN := FALSE; 

begin 

case SWITCH is 
when ELEMENT => 

if (QC_PARAMETER.THE_TYPE.S /= STRING_TYPE) then 
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QC__TYPE_N AM E := 

A_STRINGS.LOWER_TO_UPPER(QC_PARAMETER.ARRAY_ELEMENT_PTR.THE_TYPE); 

else 

QC_TYPE_N AM E := LOAD_STRING_COMPONENT(S WITCH); 
end if; 

if (SBC_PARAMETER.THE_TYPE.S /= STRING_TYPE) then 
S B C_TYPE_N AM E := 

A_STRINGS.LOWER_TO_UPPER(SBC_PARAMETER.ARRAY_ELEMENT_PTR.THE_TYPE); 

else 

SB C_TYPE_N AME := LOAD_STRING_COMPONENT(SWrTCH); 
end if; 

when INDEX => 

if (QC_P ARAMETER .TH E_TY PE . S /= STRING_TYPE) then 
QC_TYPE_N AM E := 

A_STRINGS.LOWER_TO_UPPER(QC_P ARAMETER. ARRAY_INDEX_PTR.THE_TYPE); 
else 

QC_TYPE_NAME := LOAD_STRING_COMPONENT(S WITCH); 
end if; 

if (SBC_PARAMETER.THE_TYPE.S /= STRING_TYPE) then 
SBC_TYPE_NAME := 

A_STRINGS. LOWER JTO_UPPER(SBC_P ARAMETER. ARRAY_INDEX_PTR.THE_TYPE); 
else 

SBC_TYPE_NAME := LOAD_STRING_COMPONENT(S WITCH); 
end if; 



end case; 



if ((PRiv ate_type = sbc_type_name.S) and - generic Private 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) then 

— it can map to any query component parameter 

-- as long as that paramater is a valid Ada type 
if RECOGNIZED_ADA_TYPE(QC_TYPE_N AME) then 
MAP_IS_VALID := TRUE; 



else 

INVALID_QC := TRUE; 
raise INVALID_ADA_TYPE; 
end if; 



ekif (PRiv ate_type = sbc_type_name.S) then - regular Private 

if (PRIVATE_TYPE = QC_TYPE_NAME.S) then 
MAP_IS_VAUD := TRUE, 
end if; 
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eisif ((DIscrete_type = sbc_type_name.S) and -- generic Discrete 
(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) then 

if ((DISCRETE_TYPE = QC_TYPE_NAME.S) or (TNTEGER_TYPE = QC_TYPE_NAME.S) or 
(RANGE_TYPE = QC_TYPE_NAME.S) or (NATUR AL_TYPE = QC_TYPE_NAME.S) or 
(POSmVE_TYPE = QC_TYPE_N AME.S) or (ENU MERATION_TYPE = 

QC_TYPE_NAME.S) or (CH ARACTER_TYPE = QC_TYPE_NAME.S) or (B OOLE AN_TYPE = 
QC_TYPE_NAME.S)) then 
MAP_IS_VALID := TRUE; 
end if; 

eisif (DISCRETE.TYPE = SBC_TYPE_NAME.S) then 
if (DISCRETE_TYPE = QC_T YPE_N AM E. S ) then 
MAP_IS_VALID := TRUE; 
end if; 

eisif (INTEGE R_TYPE = SB CJTYPE_N AME.S) then 
if ((DISC RETE_TYPE = QC_TYPE_NAME.S) or (INTEGER_TYPE = 

QC_TYPE_NAME.S)) then 
MAPJS_VAUD := TRUE; 
end if; 



eisif ((RANGE.TYPE = SBC_TYPE_N AME.S) and - generic Range 

(SBC_PARAMETER.DEFINED_BY_GENERIC_T\TE)) then 

if ((INTEGER_TYPE = QC_TYPE_NAME.S) or (NATURAL.TYPE = QC_TYPE_NAME.S) or 
(POSITIVE_TYPE = QC_TYPE_N AM E. S ) or (RANGE_TYPE = QC_TYPE_N AME.S)) then 
MAPJS.VAUD := TRUE; 
end if; 

eisif (RANGE_TYPE = SBC_TYPE_N AME.S) then 
if (RANGE_TYPE = QC_TYPE_NAM E.S) then 
MAP_IS_VALID := TRUE; 
end if; 

eisif (NATURAL_TYPE = SBC_TYPE_NAME.S) then 

if ((DISCRETE_TYPE = QC_TYPE_N AME.S) or (INTEGER_TYPE = QC_TYPE_NAME.S) or 
(NATUR AL_TYPE = QC_TYPE_NAME.S)) then 
MAP_IS_VAUD := TRUE; 
end if; 

eisif (POSmVE_TYPE = SBC_TYPE_NAME.S) then 
if ((DISCRETE_TYPE = QC_TYPE_N AME.S) or (INTEGER_TYPE = QC_TYPE_NAME.S) or 
(NATURAL.TYPE = QC_TYPE_N AME.S) or (POSITIVE_TYPE = QC_TYPE_NAME.S)) then 
MAP_IS_VALID := TRUE; 
end if; 

eisif (ENUMERATIONTYPE = SBC_TYPE_NAME.S) then 
if ((DISCRETE_TYPE = QC_TYPE_NAME.S) or (ENUMERAT10N_TYPE = 

QC_TYPE_N AME.S)) then 
MAP_IS_VALID := TRUE; 
end if; 

eisif (CHARACTER_TYPE = SB C_TYPE_N AME.S) then 
if ((D1SCRETE_TYPE = QC_T\TE_N AME.S) or (ENUMERATION_TYPE = 
QC_TYPE_NAME.S) or (CHARACTER_TYPE= QC_TYPE_NAME.S)) then 
MAP_IS_V ALI D := TRUE; 
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end if; 



elsif (BOOLEAN.TYPE = SBC_TYPE_NAME.S) then 
if ((DISCRETE.TYPE = QC_TYPE_NAME.S) or (ENUMERATION JTYPE = 
QC_TYPE_NAME.S) or (BOOLE AN_TYPE = QC_TYPE_NAME.S)) then 
MAP_IS_VAUD := TRUE; 
end if; 

elsif (RECORD JYPE = SBC_TYPE_NAME.S) then 
if (RECORD_TYPE = QC_TYPE_NAME.S) then 
MAP_IS_V ALI D := TRUE; 
end if; 

elsif (ACCESS_TYPE = SBC_TYPE_NAME.S) then 
if (ACCESS_TYPE = QC_TYPE_NAME.S) then 
MAP_IS_ V ALi D := TRUE; 
end if; 



elsif ((array_type = SB c_type_name.S) and - generic Array 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) then 

if ((ARRAY_TYPE = QC_TYPE_NAME.S) or (STRING_TYPE = QC_TYPE_N AME.S)) then 
MAP_IS_VALJD := TRUE; 
end if; 

elsif (ARRAY_TYPE= SB C_TYPE_N AME.S) then 

-- could miss a potential match between an sbc array element of 

— type array which maps to a qc array element of type string, 

— but this implementation does not look at any level lower 

— than first level array components 

if (ARRAYJTYPE = QC_TYPE_N AME.S) then 
MAP_IS_V ALI D := TRUE; 
end if; 

elsif (STRINGJTYPE = SBC_TYPE_NAME.S) then 

if ((ARRAYJTYPE = QC_TYPE_NAME.S) or (STRINGJTYPE = QC_TYPE_NAME.S)) then 
MAP_IS_VAUD := TRUE; 
end if; 



elsif ((DIGITS JTYPE = SBC_TYPE_N AME.S) and - generic Digits 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) then 

if ((DIGITS_TYPE = QC_TYPE_NAME.S) or (FLOAT_TYPE = QC_TYPE_N AME.S)) then 
MAP_IS_V All D := TRUE; 
end if; 

elsif (DIGITS JTYPE = SBC_TYPE_N AME.S) then 
if (DIGITS_TYPE = QC_TYPE_N AME.S) then 
MAP_IS_V ALID := TRUE; 
end if; 

elsif (FLOAT_TYPE = SBC_TYPE_NAME.S) then 

if ((DIGITS JTYPE = QC_T YPE_NAME. S) or (FLOAT_TYPE = QC_TYPE_N AME.S)) then 
MAP JS_V ALID := TRUE; 
end if; 
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elsif ((DELTA.TYPE = SBC_TYPE_NAME.S) and - generic Delta 
(SBC^PARAMETER.DEF1NED3Y^GENERIC^TYPE)) then 

if ((DELTA.TYPE = QC_TYPE_NAME.S ) or (FIXED_TYPE = QC_TYPE_NAME.S)) then 
MAP JS_V AUD := TRUE; 
end if; 



elsif (DELTA.TYPE = SBC_TYPE_NAME.S) then 
if (DELTA_TYPE = QC_TYPE_NAME.S) then 
MAP_IS_VAUD := TRUE; 
end if; 



elsif (FIXED.TYPE = SBC_TYPE_NAME.S) then 

if ((DELTA.TYPE = QC_TYPE_NAME.S) or (FIXED_TYPE = QC_TYPE_NAME.S)) then 
MAP_I S_V AUD := TRUE; 
end if; 



else - unknown type passed 

raise INVALID_ADA_TYPE; 
end if; 

return MAP_IS_VALID; 



exception 



when INVALID_ADA_TYPE => 

PUT_LENE("*** ERROR: INVALID ADA TYPE DISCOVERED FOR -"); 
if not INVALID_QC then 

PUT_LINE(" M & SBC.PARAMETER.ID.S & " : ” & SBCJTYPE_NAME.S); 

else 

PUTJJNEf M & QC.PARAMETER.ID.S & " : ” & QC_TYPE_NAME.S); 
end if; 

PUT.UNECA Type MUST BE DEFINED AS AN ADA TYPE. IT CAN REFERENCE"); 
PUT_LINE( "INFORMATION IN ITS GENERIC PARAMETERS, BUT CANNOT"); 
PUT_UNE("REFERENCE DEFINITION INFORMATION OUTSIDE ITS OWN"); 
PUTJJNEfSPECIFICATION. A Generic PARAMETER MUST BE FULLY "); 
PUTJJNEfDEFINED AS AN ADA TYPE. IT CANT EVEN REFERENCE OTHER "); 
PUT_LINE(" DEFINITIONS WITHIN ITS GENERICS."); 

NEWJJNE; 
raise ; 



when others => 

PUTJJNEf*** UNKNOWN ERROR: OCCURED IN procedure ”); 
PUT_LINE(" CHECK_OUTPUT_ARRAY_COMPONENTS. "); 

NEW_LINE; 
raise ; 

end CHECK JDUTPUT_ARRAY_COMPONENTS; 



-- determines whether a query and software base component output 
-- parameter validly map to each other based on their Ada type. 
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-- Note that the direction of comparison is different here than 
- with INPUT PARAMETER TYPES MAP OK. 



function OUTPUT_PARAMETER_TYPES_MAP_OK(QC_PARAMETER : PARAMETERS; 

SBC_PARAMETER : PARAMETERS) 
return BOOLEAN is 



SBCTYPE.NAME, QC_TYPE_NAME : PSDL_ID_PKG.PSDL_ID; 
MAP_IS_VAUD : BOOLEAN := FALSE; 

: BOOLEAN := FALSE; 

: ARRAY_COMP_S WITCH ;= ELEMENT; 
: ARRAY_COMP_SWITCH := INDEX; 



INVALID.QC 

ELEMENT.SWITCH 

INDEX.SWITCH 



begin 



QC_TYPE_NAME := A_S TRIN G S . LO WER_TO_UPPE R(QC_P ARAMETER .THE_TYPE) ; 
SB C_TYPE_NAME ;= A_STRINGS . LO WER_TO_UPPER(SBC_PARAMETER .THE_TYPE ); 



if ((PRI vate_type = sbc_type_n ame.s ) and -- generic Private 

(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) then 

— it can map to any query component parameter 

- as long as that paramater is a valid Ada type 

if RECOGNlZED_ADA_TYPE(QC_TYPE_NAME) then 

MAP_IS_VAUD := TRUE; 



else 

INVALID.QC := TRUE; 
raise 3NVALID_ADA_TYPE; 
end if; 



eisif (PRIVate_type = SB c_TYpe_n ame.S) then - regular Private 

if (PRI V ATE_TYPE = QC_TYPE_N AME.S) then 
MAP_IS_ V ALID := TRUE; 
end if; 

eisif ((DIscrete_type = s b c_ty pe_n ame. s ) and -- generic Discrete 
(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) then 

if ((DISCRETE_TYPE = QC_TYPE_NAME.S) or (INTEGER_TYPE = QC_TYPE_NAME.S) or 
(RANGE_TYPE = QC_TYPE_NAME.S) or (NATURAL_TYPE = QC_TYPE_NAME.S) or 
(POSITIVE.TYPE = QC_TYPE_NAME.S) or (ENU MERATION_TYPE = 
QC_TYPE_NAME.S) or (CHARACTER.TYPE = QC_TYPE_N AME.S) or (BOOLEAN_TYPE 
QC_TYPE_NAME.S)) then 
MAP_IS_VALID := TRUE; 
end if; 



eisif (DI SCRETE_TYPE = SBC_TYPE_NAME.S) then 
if (DISCRETE_TYPE = QC_TYPE_NAME.S) then 
MAP_IS_VAUD := TRUE; 
end if; 

eisif (INTEGER_TYPE = SBC_TYPE_NAME.S) then 
if ((DISCRETE_TYPE = QC_TYPE_NAME.S) or (INTEGER_TYPE = 
QC_TYPE_NAME.S)) then 
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MAP.IS.VAUD := TRUE; 
end if; 



elsif ((RANGE.TYPE = SBC.TYPE.NAME.S) and ~ generic Range 

(SBC.PARAMETER.DEFINED.BY.GENERIC.TYPE)) then 

if ((INTEGER.TYPE = QC_TYPE_NAME.S) or (NATURAL.TYPE = QC.TYPE.NAME.S) or 
( POSIT! VE_TYPE = QC_TYPE_NAME.S) or (RANGE_TYPE = QC.TYPE.NAME.S)) then 
MAP.IS.VAUD := TRUE; 
end if; 



elsif (RANGE_TYPE = SBC.TYPE.NAME.S) then 
if (RANGE.TYPE = QC_TYPE_NAME.S) then 
MAP.IS.VAUD := TRUE; 
end if; 



elsif (NATURAL.TYPE = SBC_TYPE_NAME.S) then 

if ((DISCRETE.TYPE = QC_TYPE_NAME.S) or (INTEGER.TYPE = QC.TYPE.NAME.S) or 
(NATURAL.TYPE = QC.T YPE.N AME .S) ) then 
MAP.IS.V AUD := TRUE; 
end if; 



elsif (POSrnVE.TYPE = SBC_TYPE_NAME.S) then 
if ((DISCRETE.TYPE = QC.TYPE.NAME.S) or (INTEGER.TYPE = QC.TYPE.NAME.S) or 
(NATURAL.TYPE = QC.TYPE.N AME .S ) or (POSITIVE.TYPE = QC.TYPE.NAME.S)) then 
MAP.IS. VALID := TRUE; 
end if; 



elsif (ENUMERATION.TYPE = SBC.TYPE.NAME.S) then 
if ((DISCRETE.TYPE = QC.TYPE.NAME.S) or (ENUMERATION.TYPE = 
QC.TYPE.NAME.S)) then 

MAP.IS.VAUD := TRUE; 
end if; 



elsif (CHARACTER.TYPE = SBC.TYPE.NAME.S) then 
if ((DISCRETE.TYPE = QC.TYPE.NAME.S) or (ENUMERATION.TYPE = 
QC.TYPE.NAME.S) or (CHARACTER.TYPE = QC.TYPE.NAME.S)) then 
MAP.IS.VAUD := TRUE; 
end if; 



elsif (BOOLEAN.TYPE = SBC.TYPE.NAME.S) then 
if ((DISCRETE.TYPE = QC.TYPE.NAME.S) or (ENUMERATION.TYPE = 
QC.TYPE.NAME.S) or (BOOLEAN.TYPE = QC.TYPE.NAME.S)) then 
MAP.IS.VAUD := TRUE; 
end if; 



elsif (RECORD.TYPE = SBC.TYPE.NAME.S) then 
if (RECORD.TYPE = QC.TYPE.NAME.S) then 
MAP.IS.VAUD ;= TRUE; 
end if; 



elsif (ACCESS.TYPE = SBC.TYPE.NAME.S) then 
if (ACCESS.TYPE = QC.TYPE.NAME.S) then 
MAP.IS.VAUD ;= TRUE; 
end if; 



elsif ((ARRAY.TYPE = SBC.TYPE.NAME.S) and - generic Array 
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(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) then 

if ((ARRAY_TYPE = QC_TYPE_NAME.S) or (STRING_TYPE = QC_TYPE_NAME.S)) then 

MAP_IS_VALID := CHECK_OUTPUT_ARRAY_COMPONENTS(QC_PARAMETER, 

SBC_PARAMETER, 

ELEMENT_SW1TCH); 

if map_is_vaud then -- array element mapped 

- correctly 

MAP_IS_VALID := CHECK_OUTPUT_ARRAY_COMPONENTS(QC_PARAMETER, 
SBC_PARAMETER, 

END EX_S WITCH); 
end if; 
end if; 



elsif (ARRAY_TYPE = SBC_TYPE_NAME.S) then 

if ((ARRAY_TYPE = QC_TYPE_NAME.S) or (STRING_TYPE = QC_TYPE_NAME.S)) then 

MAP_IS_VAUD := CH ECK_0 UTPUT_ARRA Y_COMPONENTS (QC_P ARAMETER , 

SBC.PARAMETER, 

ELEMENT_SWITCH); 

if map_is_valid then — array element mapped 

— correctly 

MAP_IS_V AUD := CHECK_OUTPUT_ARRAY_COMPONENTS(QC_P ARAMETER, 

SBC_P ARAMETER, 

END EX_S WITCH); 
end if; 
end if; 



elsif (STRING.TYPE = SBC_TYPE_NAME.S) then 
if (((ARRAY.TYPE = QC_TYPE_NAME.S) and then 

(CHECK_OUTPUT_ARRA Y_COMPONENTS (QC_PARAMETER , SB C_P ARAMETER , 
ELEMENT_S WITCH)) and then (CHECK_OUTPUT_ARRAY_COMPONENTS(QC_P ARAMETER, 
SBC_P ARAMETER, INDEX.S WITCH))) or (STRING_TYPE = QC_TYPE__NAME.S)) then 
MAP_IS_VAUD := TRUE; 
end if; 



elsif ((DIGITS_TYPE = SBC_TYPE_NAME.S) and - generic Digits 
(SBC_PARAMETER.DEFINED_BY_GENERIC_TYPE)) then 

if ((DIGITS_TYPE = QC_TYPE_NAME.S) or (FLOAT_TYPE = QC_TYPE_NAME.S)) then 
MAPJS.VAUD := TRUE; 
end if; 

elsif (DIGITS_TYPE = SBC_TYPE_NAME.S) then 
if (DIGITS_TYPE = QC_TYPE_NAME.S) then 
MAP_IS_V ALID := TRUE; 
end if; 



elsif (FLOAT_TYPE = SBC_TYPE_NAME.S) then 

if ((DIG1TS_TYPE = QC_TYPE_NAME.S) or (FLOAT_TYPE = QC_TYPE_NAME.S)) then 
MAP_IS_V AEJ D := TRUE; 
end if; 



elsif ((DELTA_TYPE = SBC_TYPE_NAME.S) and - generic Delta 

(SBC_PARAMETER.DEFINED_B Y_GENERIC_TYPE)) then 

if ((DELTA_TYPE = QC_TYPE_NAME.S) or (FIXED_TYPE = QC_TYPE_NAME.S)) then 
MAP_IS_VAUD ;= TRUE; 
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end if; 



elsif (DELTA.TYPE = SBC_TYPE_NAME.S) then 
if (DELTA.TYPE = QC_TYPE_NAME.S) then 
MAP_IS_V ALID := TRUE; 
end if; 

elsif (FIXED_TYPE = SBC_TYPE_NAME.S) then 

if ((DELTAJTYPE = QC_TYPE_NAME.S) or (FIXED.TYPE = QC_TYPE_NAME.S)) then 
MAP_IS_V AJLID := TRUE; 
end if; 



else - unknown type passed 

raise IN V ALID_AD A JTYPE; 

end if; 

return MAP_IS_VALID; 



exception 



when INVALIL)_ADA_TYPE => 

PUT_LINE( M *** ERROR: INVALID ADA TYPE DISCOVERED FOR -"); 
if not INVALID_QC then 

PUT_UNE(” M & SBC_PARAMETER.ID.S & " : M & SBC_TYPE_NAME.S); 

else 

PUT_LINE( M " & QC_PARAMETER.ID.S & " : " & QC_TYPE_NAME.S); 
end if; 

PUTJJNEC’A Type MUST BE DEFINED AS AN ADA TYPE. IT CAN REFERENCE"); 
PUT_LJNE( "INFORMATION IN ITS GENERIC PARAMETERS, BUT CANNOT"); 
PUT_LINE("REFERENCE DEFINITION INFORMATION OUTSIDE ITS OWN"); 
PUT_LJNE("SPECIFICATION. A Generic PARAMETER MUST BE FULLY "); 
PUT_LJNE(" DEFINED AS AN ADA TYPE. IT CANT EVEN REFERENCE OTHER "); 
PUT_UNE("DEFINITIONS WITHIN ITS GENERICS."); 

NEWJJNE; 
raise ; 



when others => 

PUT_LINE("*** UNKNOWN ERROR: OCCURED IN procedure "); 
PUT_LINE(" OUTPUT_PARAMETER_TYPES_MAP_OK. "); 

NEW_LINE; 
raise ; 

end OUTPUT_PARAMETER_TYPES_MAP_OK; 



end PARAMETERJMAPPING _PKG; 



********************************************************************************* 
******************************** ********************** ************** ************* 
********************************************************************************* 
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- Filename / Parameter2_Iterator_Pkg.a 

- Date / 10 Aug 93 

- Revised / 18 Aug 93 

- Author / Scott Dolgoff 

- System / Solbourne 

- Compiler / Verdix Ada 

- Description / This program writes the input and output parameters 

/ of softM’are component's Prototype System 
/ Description Language (PSDL) specifications into 
/ two separate files. These input/ output parameter 
/ files are later used by the graphical user interface 
/ written with TAE to help transform components selected 
/ through matching to be brought into the prototype 
/ working directory. If the PSDL specification is of 
la software base component, then a check is made to 
/ see if it has generic parameters. If it does 
/ then the generic parameters are written to a third 
I file. 

/ It also creates input, output, and (if appropriate), 

/ generic parameter lists that are used to help establish 
/ a final mapping of parameter types between the query 
/ and software base components. 

with PSDL_ID_PKG, PS DL_C ON C RETE_TYPE_PKG, PARAMETER_LIST_PKG, PSDL_PROGRAM_PKG, 

PSDL_COMPONENT_PKG; 

use PSDL_ID_PKG, PSDL_CONCRETE_TYPE_PKG, PARAMETER_LIST_PKG, PSDL_PROGRAM_PKG, 

PSDL_COMPONENT_PKG; 

package ITERATE2_THROUGH_OPERATOR_PARAMETERS_PKG is 



-- gets the necessary component values needed for looking up 
— Ada type information 

procedure SEND_COMPONENTS(MAIN_COMPONENT : in 

PSDL_COMPONENT_PKG.PSDL_COMPONENT; 

PROTO_SPEC : in PSD L_PROGRAM_PKG . PS DL_PROG RAM ) ; 



— build list of all parameters and how many there are 
procedure B UILD_P ARAMETERJJ ST(P ARAM_LI ST : out PARAMETERS; 

PARAM.COUNT : out INTEGER); 
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- Procedure that opens the desired file (input, output, or generic 

-- parameters file) for the desired component ( query or software base). 

- files for a query component or software base component will 

- be created 

procedure OPEN_FILE(FILE_NAME : in STRING); 



- Procedure that closes the file opened by OPEN_FILE; 

procedure CLOSE_FILE; 



— procedure passed to generic scan procedure in generic map package 

— extracts the input parameters from the Type Declaration 

— map 

procedure GET_IN_PARAMETER(ID : in PSDL_ED_PKG.PSDL_ID; 

TYPE_NAME : in PSDL_CON CRETE_TYPE_PKG.TYPE_N AME); 

-- iterate through the Type Declaration map to extract the set of input 

— parameters. 

procedure ITERATE_THROUGH_INPUT_PARAMETERS is new 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION_PKG.GENERIC_SCAN(GENERATE=>GET_IN_PAR 
AMETER); 



-- procedure passed to generic scan procedure in generic map package 

— extracts the output parameters from the Type Declaration 

- map 

procedure GET_OUT_PARAMETER(ID ; in PSDL_ID_PKG.PSDL_ID; 

TYPE_NAME : in PS DL_CONCRETE_TYPE_PK G .TYPE_N AME) ; 



- iterate through the Type Declaration map to extract the set of output 

- parameters. 

procedure 1 1 ERATE_THROUGH_OUTPUT_PAR AMETERS is new 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARAT!ON_PKG.GENERIC_SCAN(GENERATE=>GET_OUT_PA 
RAMETER); 



-- procedure passed to generic scan procedure in generic map package 

- extracts the generic parameters from the Type Declaration 

- map 

procedure GET_GEN_PARAMETER(ID : in PSDL_ID_PKG.PSDL_ID; 

TYPE_NAME : in PS DL_CONCRETE_TYPE_PKG.TYPE_N AME); 

- iterate through the Type Declaration map to extract the set of generic 

- parameters. 



256 



procedure ITERATE_THROUGH_GENERIC_PARAMETERS is new 

PSDL_CONCRETE_TYPE_PKG.TYPE_DECLARATION_PKG.GENERIC_SCAN(GENERATE=>GET_GEN_PA 
RAMETER); 



end ITERATE2_THROU GH_OPERATOR_P ARAMETERS_PKG; 



with TEXTJO, ADA_RECOGNIZED_TYPES_PKG, DETERMINE_THE_ADA_TYPE_PKG, 
TYPE_NAME_PKG, AJSTRINGS; 

use TEXTJO, ADA_RECOGNIZED_TYPES_PKG, DETERMINE_TH E_AD A_TYPE_PKG , A.STRINGS; 

package body ITERATE2_THROUGH_OPERATOR_PARAMETERS_PKG is 

GV_NAME, GV_UDT_NAME : PS DL_C ONCRETE_TYPE_PKG. TYPE_N AME ; 

-- It is necessary to know where the Array type was declared when 

— examining the generics of a component. You need to know whether 

- you should be looking at the Operator generics or a Type's generics. 

ARRAY_REFERENCE_IN_UDT : BOOLEAN; 

THE_FILE : FILE_TYPE; 

PARAMETER_LIST_HEAD : PARAMETERS := null; 

P ARAMETER_LI ST_PTR : PARAMETERS := nuU; 

PARAMETER_COUNT : INTEGER := 0; 

IS_GENERIC : BOOLEAN := FALSE; 

ARRAY_IS_GENERIC : BOOLEAN := FALSE; 



-- gets the necessary component values needed for looking up 
— Ada type information 

procedure SEND_COMPONENTS(MAIN_COMPONENT 

PSDL_COMPONENT_PKG.PSDL_COMPONENT; 

PROTO_SPEC : in PSDL_PROGRAM_PKG.PSDL_PROGRAM) is 



begin 

PASS_COMPONENTS(MAIN_COMPONENT, PROTO_SPEC); 
end SEND JTOMPONENTS; 



-- build list of all parameters and how many there are 

procedure B UILD_P ARAMETER_LI ST (P ARAM_LI ST : out PARAMETERS; 

PARAM_COUNT : out INTEGER) is 
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begin 

PARAM.UST := PARAMETER JJST.HEAD; 
PARAM.COUNT := P ARAMETER_COUNT ; 



-- reinitialize package memory 
PARAMETER_UST_HEAD := nuU; 
PARAMETER_UST_PTR := nuU; 
PARAMETER_COUNT := 0; 

end BIHLD_PARAMETER_LIST; 



-- Procedure that opens the desired file (input, output, or generic 

— parameters file) for the desired component (query or software base), 
—files for a query component or software base component will 

— be created 

procedure OPEN_FILE(FILE_NAME : in STRING) is 
begin 

— create the (input, output, or generic) parameter text file 

CREATE(THE_FILE, MODE => OUT_FILE, NAME => FILE_NAME); 

end OPEN_FELE; 



- Procedure that closes the file opened by OPEN _FILE; 

procedure CLOSE_FILE is 
begin 

CLOSE(THE_FILE); 
end CLOSE_FILE; 



- Writes the input, output, or generic parameter to its respective 

— text file. 

procedure WRITE_PARAMETER_TO_FILE(TYPE_NAME_ID : PSDL_ID_PKG.PSDL_ID) is 
begin 

if IS_GENERIC then 

PUT(THE_FILE, " : {G} ” & TYPE_NAME_ID.S); 

IS_GENERIC := FALSE; 

else 

PUT(THE_FILE, " : ” & TYPE_N AM E_ID . S); 

end if; 

end W RITE_PARAMETER_TO_FILE; 
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— procedure passed to generic scan procedure in generic map package 

— extracts the input parameters from the Type Declaration 

— map. NOTE that this procedure will be run once for each input 

— parameter as the entire set of input parameters is iterated through. 

procedure GET_IN_PARAMETER(ID : in PSDL_ID_PKG.PSDL_ID; 

TYPE_NAME : in PSDL_CONCRETE_TYPE_PKG.TYPE_N AME) is 



— User Defined Type (UDT) type name 

UDT TYPE.NAME, generic jtype_name, elementtype, index.type, the_type_name 

PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 

ELEMENT JJDT, INDEX _UDT : 

PSDL_ID_PKGPSDL_ID; 

ELEMENTJSJJDT, INDEXJS JJDT, FOUND_TYPE : 

BOOLEAN; 

OPERATOR_COMPONENT : 

DETERMINE JTHE_ADA_TYPEJ ) KG .CO MPONENT_TYPE := OPERATOR.COMP; 



begin 

THE_TYPE_NAME := TYPE.NAME; 



— write the name of the identifier to the file 

PUT(THE_FILE, ID.S); 

— write the name of the identifier into the parameter list 

if PARAMETER_LIST_HEAD = null then 

— initialize list 

PARAMETER_UST_HEAD := new PARAMETER_LIST_NODE; 
PARAMETER_UST_HEAD.ID := ID; 

PARAMETER_LIST_PTR := PARAMETER_UST_HEAD; 

else 

PARAMETER_UST_PTR.NEXT := new PARAMETER_UST_NODE; 
PARAMETER_UST_PTR := P ARAMETER_LI ST_PTR .NEXT; 

PARAMETER_UST_PTR.ID := ID; 
end if; 

PAR AM ETE R_CO U NT := PARAMETER_COUNT + 1; 

if RECOGNIZED_ADA_TYPE(THE_TYPE_NAME.NAME) then 

— Input parameter is a valid Ada type so go ahead and append 

— the current file with this Ada type. 

THE_TYPE_NAME.NAME := A_STRINGS.LOWER_TO_UPPER(THE_TYPE_NAME.NAME); 
WRITE_PARAMETER_TO_FILE(THE_TYPE_NAME.NAME); 
PARAMETER_LIST_PTR.THE_TYPE := THE_TYPE_NAME.NAME; 
if THE_TYPE_N AME.NAME.S = ARRAY_TYPE then 
ARRAY_REFERENCE_IN_UDT := FALSE; 
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G ET_ARRA Y_COMPONENTS (THE_TYPE_NAME, ELEMENTJTYPE, ELEMENT _IS_UDT, 

ELEMENTJJ DT, 

INDEX_TYPE, INDEX _IS_UDT, INDEX JJDT, ARRAY_REFERENCE_IN_UDT); 

~ add array components to file 

PUT(THEJFILE, "[AE H ); 

WRITE_PARAMETER_TO_nLE(ELEMENT_TYPE.NAME); 

PUT(THE_FILE, ”, AI”); 

WRITE_PARAMETER_TO_FILE(INDEX_TYPE.NAME); 

PU T_LINE(THE_FILE , 

— add new array element 

PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR := new PARAMETER_UST_NODE; 
PARAMETER_LIST_PTR.ARRAY_ELEMENT_PTR.THE_TYPE := ELEMENT JTYPE.NAME; 
if ELEMENT_IS_UDT then 

PARAMETER_LIST_PTR.ARRAY_ELEMENT_PTR.UDT := ELEMENT JJDT; 
PARAMETER_LIST_PTR.ARRAY_ELEMENT_PTR.HAS_UDT := TRUE; 
end if; 



— add new array index 

PARAM ETER JJSTJTR . ARRA Y_INDEX_PTR := new PARAMETER_UST_NODE; 
PARAMETER_LIST_PTR.ARRAY_INDEX_PTR.THE_TYPE := INDEX.TYPE.NAME; 
if INDEX_IS_UDT then 

PARAMETER_LIST_PTR.ARRAY_INDEX_PTR.UDT := INDEXJJDT; 
PARAMETER_LJST_PTR.ARRAY_INDEX_PTR.HAS_UDT := TRUE; 
end if; 



else -- not an Array type 
NEW_UNE(THE_HLE); 
end if; 

else 

— Maybe the parameter is defined in the generics of the 

- Operator component. 

CHECK_GENERICS(OPERATOR_COMPONENT, THE_TYPE_NAME, GENERIC_TYPE_NAME, 
FOUND_TYPE); 

if FOUND_T\TE then 

-- The type is either not composite or even if composite, 

- will not be further specified by its components so 

— go ahead and encode. 

UDTTYPE_NAME := GENERIC_TYPE_NAME; 

PARAMETER_UST_PTR.GENERIC _ID := THE_TYPE_NAME.NAME; 
PARAMETER_LIST_PTR.THE_T\TE := GENERIC_TYPE_NAME.NAME; 
PARAMETER_UST_PTR.DEFINED_BY_GENERIC_T\TE := TRUE; 

IS.GENERIC := TRUE; 

ARRA Y_IS_GEN ERIC ;= TRUE; 



else - The parameter must be a user defined type so 
- get its type. 

G ET_USER_D EFI N ED_TYPE(TH E_TYPE_N AM E, U DT_TYPE_N AM E) ; 
PARAMETER_UST_PTR.THE_TYPE ;= UDT_'n'PE_NAME.NAME; 
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— record the UDT name 

PARAMETER_LIST_PTR.UDT := THE_TYPE_NAME.NAME; 
PARAMETER_LIST_PTR.HAS_UDT := TRUE; 



end if; 



UDT_TYPE_NAME.NAME := A_STRINGS.LOWER_TO_UPPER(UDT_TYPE_NAME.NAME); 
WRITE_PARAMETER_TO_FTLE(UDT_TYPE_NAME.NAME); 
if UDT_TYPE_NAME.NAME.S = ARRAY.TYPE then 
PUT(THE_FILE, M [AE”); 

ARRA Y_REFERENCE_IN_UDT := TRUE; 

GET_ARRAY_COMPONENTS(UDT_TYPE_NAME, ELEMENT_TYPE, ELEMENT_IS_UDT, 
ELEMENT.UDT, 

INDEX .TYPE, INDEX _IS_UDT, INDEXJJDT, ARRAY_REFERENCE_IN_UDT); 

- add array components to file 

WRITE_PARAMETER_TO_HLE(ELEMENT_TYPE.NAME); 

PUT(THE_FILE, ”, AI”); 

WRITE_PARAMETER_TO_FTLE(]NDEX_.TYPE.NAME); 

PUT_LINE(THE_FILE, 

— add new array element 

PARAMETER_LIST_PTR.ARRAY_ELEMENT_PTR := new PARAMETER JJST.NODE; 

P AR AMETE R_LI S T_PTR . ARRA Y_E L EMENT_PTR .TH E_TY PE := ELEMENT_TYPE.NAME; 
if ELEMENT_IS_UDT then 

PARAMETER_LIST_PTR.ARRAY_ELEMENT_PTR.UDT := ELEMENT.UDT ; 
PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR.HAS_UDT := TRUE; 
end if; 



-- add new array index 

PARAMETER_UST_PTR.ARRAY_INDEX_PTR := new PARAMETER_UST_NODE; 
PARAMETER_LIST_PTR.ARRAY_INDEX_PTR.THE_TYPE := INDEX_TYPE.NAME; 
if INDEX_IS_UDT then 

PARAMETER_UST_PTR.ARRAY_INDEX_PTR.UDT := INDEXJJDT; 
PARAMETER_UST_PTR.ARRAY_INDEX_PTR.HAS_UDT := TRUE; 
end if; 

— if array is generic then components must reflect that 

if ARRAY_IS_GENERIC then 

ARRAY_IS_GENERIC ;= FALSE; 

PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR.DEFINED_BY_GENERIC_TYPE := TRUE; 
PARAMETER_LIST_PTR.ARRAY_INDEX_PTR.DEFINED_BY_GENERIC_TYPE := TRUE; 

end if; 



else — The type is either not ARRAY _TYPE or even if some other 
— composite, will not be further specified by its components. 
— added already so go to next line in file. 

NEW_LINE(THE_FILE); 

end if; 
end if; 



261 



exception 



when others => 

PUTJJNEC*** ERROR: OCCURED IN procedure GETJN.PARAMETER. "); 

NEW_LTNE; 

raise ; 



end GET.IN.PA RAMETER; 



— procedure passed to generic scan procedure in generic map package 

— extracts the output parameters from the Type Declaration 

~ map . NOTE that this procedure will be run once for each output 

— parameter as the entire set of output parameters is iterated through. 

procedure G ET_OUT_PAR AMETER (ID : in PSDLJD_PKG.PSDL_ID; 

TYPE.NAME : in PSDL_CONCRETE_TYPE_PKG.TYPE.NAME) is 



- User Defined Type (UDT) type name 

UDT_TYPE_N AME, GENERIC_TYPE_NAME, ELEMENT_TYPE, INDEX.TYPE, THE_TYPE_NAME : 
PSDL _CONCRETE_TYPE_PKG .TYPE.N AME; 

ELEMENT.UDT, INDEX.UDT : 

PSDL_ID_PKG.PSDL_ID; 

ELEMENT JS_UDT, INDEX JS_UDT, FOUND_TYPE : 

BOOLEAN; 

OPERATOR.COMPONENT : 

DETERMINE_THE_ADA_TYPE_PKG.COMPONENT_TYPE := OPERATOR_COMP; 



begin 

THE_TYPE_NAME := TYPE_NAME; 

- write the name of the identifier to the file 

PUT(THE_FILE, ID.S); 

- write the name of the identifier into the parameter list 

if PARAMETER_LIST_HEAD = null then 

- initialize list 

PARAMETER JLIST.HEAD := new PARAMETER_UST_NODE; 

P ARAMETER_LI ST_H E AD .ID :=ID; 

PA RAMETER_LI ST_PTR := PARAMETER_UST_HEAD; 

else 

PARAMETER_UST.PTR.NEXT := new PARAMETER JLJST.NODE; 
PARAMETER_UST_PTR := P ARAM ETER.LIST.PTR. NEXT; 
PARAMETER_UST_PTR.ID := ID; 
end if; 

P ARAM ETE R_C O U NT := PARAMETER.COUNT + 1; 
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if RECOGNIZED. AD A_TYPE(THE_TYPE_NAME.NAME) then 

- Output parameter is a valid Ada type so go ahead and add 

— to the file. 

THE_TYPE_NAME.NAME := A_STRINGS.LOWER_TO_UPPER(THEJTYPE_NAME.NAME); 
WRITE_PARAMETER_TO_FILE(THE_TYPE_NAME.NAME); 

PAR AMETER_LIST_PTR.TH E_TYPE := TH E_TYPE_NAME .NAME ; 
if THE_TYPE_NAME.NAME.S = ARRAY.TYPE then 

PUT(THE_FILE, ”[ AE”); 

ARRAY_REFERENCE_IN_UDT := FALSE; 

GET_ARRAY_COMPONENTS(THE_TYPE_NAME, ELEMENT_TYPE t ELEMENT _IS_UDT, 

ELEMENT_UDT t 

INDEX.TYPE, INDEX_IS_UDT, INDEX_UDT, ARRAY_REFERENCE_IN_UDT); 

-- add array components to file 

WRITE_PARAMETER_TO_FILE(ELEMENT_TYPE.NAME); 

PUT(THE_FILE, ", AT); 

WRITE_PARAMETER_TO_FILE(INDEX_TYi ) E.NAME); 

PUT_UNE(THE_FILE, T): 

— add new array element 

PARAMETER JJST_PTR.ARRAY_ELEMENT_PTR := new PARAMETER_LIST_NODE; 
PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR.THE_TYPE := ELEMENT_TYPE.NAME; 
if ELEMENTJS.UDT then 

PARAMETER_LIST_PTR.ARRAY_ELEMENT_PTR.UDT := ELEMENT_UDT ; 
PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR.HAS_UDT := TRUE; 
end if; 



- add new array index 

PARAMETER_UST_PTR.ARRAY_INDEX_PTR := new PARAMETER_UST_NODE; 
PARAMETER_UST_PTR. ARRAY_INDEX_PTR.THE_TYPE := INDEX_TYPE.NAME; 
if INDEX_IS_UDT then 

PARAMETER_UST_PTR.ARRAY_INDEX_PTR.UDT := INDEX_UDT; 
PARAMETER_LIST_PTR.ARRAY_INDEX_PTR.HAS_UDT := TRUE; 
end if; 



else — not an Array type 
NEW_UNE(THE_HLE); 
end if; 



else 

-- Maybe the parameter is defined in the generics of the 
- Operator component. 

CHECK_GENERICS(OPERATOR_COMPONENT, THE_TYPE_NAME, GENERIC_TYPE_NAME, 
FOUND_TYPE); 

if FOUND_TYPE then 

-- The type is either not composite or even if composite, 

— will not be further specified by its components so 

— go ahead and encode. 

UDT_TYPE_N AME := G ENER1C_TYPE_N AME; 

PARAMETER_UST_PTR.GENERIC_ID := THE_TYPE_N AME.N AME; 
PARAMETER_LIST_ITR.THE_TYPE := GENERIC_TYPE_NAME.NAME; 
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PARAMETER_UST_PTR.DEFINED_BY_GENERIC_TYPE := TRUE; 
IS_GENERIC := TRUE; 

ARRAY_IS_GENERIC := TRUE; 



else — The parameter must be a user defined type so 
- get its type. 

GET_USER_DEFINED_TYPE(THE_TYPE_NAME, UDT_TYPE_NAME); 
PARAMETER_UST_PTR.THE_TYPE := UDT_TYPE_NAME.NAME; 

— record the UDT name 

P ARAMETERJ-J ST_PTR . U DT := THE_TYPE_NAME.NAME; 
PARAMETER_UST_PTR.HAS_UDT := TRUE; 

end if; 



UDT_TYPE_NAME.NAME := A_STRINGS.LOWER_TO_UPPER(UDT_TYPE_NAME.NAME); 
WRITE_PARAMETER_TO_FILE(U DT_TYPE_NAME.N AME); 
if UDT_TYPE_NAME.NAME.S = ARRAY_TYPE then 

PUT(THE_FILE, M [AE"); 

A R RA Y_REFEREN C E_LN_U D T := TRUE; 

GET_ARRAY_COMPONENTS(UDT_TYPE_NAME, ELEMENT_TYPE, ELEMENT JS_UDT, 

ELEMENTJUDT, 

INDEX.TYPE, INDEX_IS_UDT, INDEX_UDT, ARRAY_REFERENCE_IN_UDT); 

— add array components to file 

WRITE_PARAMETER_TO_HLE(ELEMENT_TYPE.NAME); 

PUT(THE_FILE, ", AI M ); 

WRITE_PARAMETER_TO_FILE(INDEX_TYPE.NAME); 

PUT_LINE(THE_FILE, T); 

~ add new array element 

PARAMETER_LIST_PTR.ARRAY_ELEMENT_PTR := new PARAMETER_UST_NODE; 
PARAMETER_LJST_PTR.ARRAY_ELEMENT_PTR.THE_TYPE := ELEMENT_TYPE.NAME; 
if ELEMENT_IS_UDT then 

PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR.UDT := ELEMENT.UDT; 
PARAMETER_LIST_PTR.ARRAY_ELEMENT_PTR.HAS_UDT := TRUE; 
end if; 



- add new array index 

PARAMETER_UST_PTR.ARRAY_INDEX_PTR := new PARAMETER_UST_NODE; 
PA RAMETER_LI ST_PTR . ARRA Y_INDEX_PTR.THE_TYPE := ENDEX_TYPE.NAME; 
if INDEX_IS_UDT then 

PARAMETER_LIST_PTR. ARRA Y_INDEX_PTR. UDT := INDEX.UDT; 
PARAMETER_UST_PTR.ARRAY_INDEX_PTR.HAS_UDT := TRUE; 
end if; 



- if array is generic then components must reflect that 

if ARRAY_IS_GENERIC then 

ARRAY_IS_GENERIC := FALSE; 

PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR.DEFINED_BY_GENER1C_TYPE := TRUE; 
PARAMETER.UST.PTR.ARRAY.INDEXJ^TRDEFINED.B Y_GENERIC_TYPE := TRUE; 

end if; 
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else — The type is either not ARRAY TYPE or even if some other 
— composite, will not be further specified by its components. 
— already added to file so go to next line in file 
NEW_LJNE(THE_FILE); 
end if; 
end if; 



exception 
when others => 

PUT_LINE("*** ERROR: OCCURED IN procedure GET_OU T_P ARAMETER . "); 

NEWSLINE; 

raise ; 

end GET_OUT_PARAMETER; 



— procedure passed to generic scan procedure in generic map package 

- extracts the generic parameters from the Type Declaration 

— map . NOTE that this procedure will be run once for each generic 

— parameter as the entire set of generic parameters is iterated through. 

- The file name is predetermined because only a software base component 

- can have generic parameters. 

procedure GET_GEN_P ARAMETER (ID : in PSDLJDJPKG.PSDLJD; 

TYPE_NAME : in PS DL_CON CRETE_TYPE_PKG . TYPE_N AM E) is 



- User Defined Type (UDT) type name 

UDT_TYPE_N AME, GENERIC JTYPE_NAME, ELEMENTTYPE, INDEX_TYPE, THE_TYPE_NAME : 
PSDL_CONCRETE_TYPE_PKG.TYPE_NAME; 

ELEMENT_UDT, INDEXJJDT : 

PSDL_ID_PKG.PSDLJD; 

ELEMENT JS_UDT, INDEX_IS_UDT, FOUND_TYPE : 

BOOLEAN; 

OPERATOR_COMPONENT : 

DETERMINE_THE_ADA_TYPE_PKG.COMPONENT_TYPE := OPERATOR_COMP; 



begin 

THE_TYPE_NAME := TYPE.NAME; 



— write the name of the identifier to the file 

PUT(THE_FILE, ID.S); 

-- write the name of the identifier into the parameter list 

if PARAMETER_UST_HEAD = null then 

— initialize list 

PARAMETER_UST_HEAD := new PARAMETER_U ST_N ODE; 
PARAMETER_LIST_HEAD.ID ID; 
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PARAMETER_UST_PTR := PARAMETER_LIST_HEAD; 



else 

PARAMETER_LIST_PTR.NEXT := new P ARAMETER_LI ST_N ODE ; 

PARAMETERLISTPTR := PARAMETERJJST_PTR.NEXT; 

PARAMETER_LIST_PTR .ID := ID; 
end if; 

PARAMETER_COUNT := PARAMETER_COUNT + 1; 

if RECOGNIZED_ADA_TYPE(THE_TYPE_NAME.NAME) then 

- generic parameter is a valid Ada type so go ahead and append 

- the current file with this Ada type . 

TH E_TYPE_N AME.N AME := A_STRINGS.LOWER_TO_UPPER(THE_TYPE_NAME.NAME); 
WRrTE_PARAMETER_TO_FILE(THE_TYPE_NAME.NAME); 

P AR AMETER_UST_PTR.TH E_TYPE := THE_TYPE_N AME.N AME; 
if THE_TYPE_N AME.N AME.S = ARRAY.TYPE then 
ARRA Y_RE FERENCE_IN_UDT := FALSE; 

- Note: even though Get _Array jComponents will not restrict 

- its search for the types of the array components to what 

- is defined in the generics portion of the Operator component , 

- that is OK. The reason is that by virtue of reaching this 

- point (i.e. a software base component has been matched and 

- selected ), we are sure that the software base component 

~ is correctly formulated with regards to itPSDL specification. 

~ Otherwise , it could not have been stored in the software base. 

G ET_ARR A Y_COM PONENT S (TH E_TYPE_N AME , ELEMENT_TYPE, ELEMENT JS.UDT, 

ELEMENT.UDT, 

INDEX.TYPE, INDEX_IS_U DT, INDEXJJDT, ARR A Y_REFERENCE_IN_UDT) ; 

- add array components to file 

PUT(THE_FILE, "[AE"); 

WRJTE_PARAMETER_TO_FILE(ELEMENT_TYPE.NAME); 

PUT(THE_FILE, ", AT); 

WRITE_P ARAM ETER_TO_FILE(INDEX_TYPE.N AME); 

PUT_UNE(THE_FILE, M ] M ); 

- add new array element 

PA RAMETER_LIST_PTR . ARRA Y_ELEMENT_PTR := new PARAMETER_UST_NODE; 
PAJLAMETER_LIST_PTR.ARRAY_ELENfENT_PTR.THE_TYPE := ELEMENT.TYPE.NAME; 
if ELEMENT_IS_UDT then 

PARAMETER_UST_PTR.ARRAY_ELEMENT_PTR.UDT := ELEMENTJJDT; 

P ARAMETE R_U ST_PTR . ARRA Y_E LEM ENT_PTR . H A S_U DT := TRUE; 
end if; 



-- add new array index 

PARAMETER_UST_fTR.ARRAY_INDEX_PTR := new PARAMETER_UST_NODE; 
PARAMETER_LIST_PTR.ARRAY_INDEX_PTR.THE_TYPE := INDEX_TYPE.N AME; 
if INDEX_IS_UDT then 

PARAMETER_LIST_PTRARRAY_INDEX_PTR.UDT := INDEX_UDT; 
PARAMETER_LIST_i>TR.ARRAY_INDEX_lTR.HAS_UDT := TRUE; 
end if; 



else — not an Array type 
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NEW_LINE(THE_FILE); 
end if; 



else 

raise INV ALID_ADA_TYPE; 
end if; 



exception 



when INVALID_ADA_TYPE => 

PUT_LINE(”*** ERROR: INVALID ADA TYPE DISCOVERED FOR -"); 

PUT_LINE(" " & TH E_TYPE_N AME .N AME. S ); 

PUT_LINE("A Type MUST BE DEFINED AS AN ADA TYPE. IT CAN REFERENCE”); 
PUT_LINE( "INFORMATION IN ITS GENERIC PARAMETERS, BUT CANNOT”); 
PUT_LINE(”REFERENCE DEFINITION INFORMATION OUTSIDE ITS OWN”); 
PUTJJNEfSPECIFICATION. A Generic PARAMETER MUST BE FULLY ”); 
PUT_LINE( “DEFINED AS AN ADA TYPE. IT CANT EVEN REFERENCE OTHER ”); 
PUT_LINE( “DEFINITIONS WITHIN ITS GENERICS.”); 

NEW_LINE; 
raise ; 



when others => 

PUT_LINE(”*** ERROR: OCCURED IN procedure GET_GEN _P A RAM ETER . ”); 

NEWSLINE; 

raise ; 



end GET_GEN_PARAMETER; 



end ITERATE2_THROUGH_OPERATOR_PARAMETERS_PKG; 



******************* ****** ****** ************ ****** ****** ****** **************** 
********************************************************************************* 
********************************************************************************* 



— Filename / Store_ADT_Signatures_In_File.a 

— Date / 30 August 93 

— Author / Scott Dolgoff 

— System / Sun Sparcstation 

— Compiler / Verdix Ada 

— Description / This program receives the encoded signatures and 

/ then stores them in the file "Signature.dat" for 
/ subsequent use by a C++ program. 

with TEXT.IO, ENCODE_ADT_SIGNATURE_PKG, ADD_ AD A_TYPE_TO_SI GN ATURE_PKG ; 
use TEXTJO, ENCODE_ADT_SIGNATURE_PKG, ADD_ADA_TYPE_TO_SIGNATURE_PKG; 

procedure STORE_ADT_SIGNATURES_IN_FILE is 



267 



package INTEG ER_INOUT is new INTEGER_IO(IN ibGER); 
use INTEG ER_IN OUT; 

IN_SIG, OUT_SIG : SIGNATURE; 

SIGNATURE_FILE_NAME : constant STRING := "Signature.dat"; 
SIGNATURE_FILE : TEXT_IO.FILE_TYPE; 



begin 



- Get the encoded ADT signatures. 

ENCODE_ADT_SIGNATURE(IN_SIG, OUT_SIG); 

-- Create the file to store the ADT signatures in. 

TEXT_IO.CREATE(SIGNATURE_FILE, MODE => OUT_FILE, NAME => SIGN ATURE_FILE_N AME); 

— Store ADT aggregate input signature. 

for REGION in ALL_REGIONS'FIRST .. ALL_REGIONS'LAST loop 

— Note: Setting WIDTH to zero is critical because 

it left justifies the numbers. This makes 
it easy on the C++ program that has to read 
the numbers from a file as characters and 

then convert them to integers. 

PUT(SIGNATURE_FILE, IN_SIG(REGION), WIDTH => 0); 

NEW_UNE(SIGNATURE_FILE); 



end loop; 



- Store ADT aggregate output signature. 

for REGION in ALL_REGI ON S' FI RST .. ALL.REGIONS’LAST loop 

PUT(SIGNATURE_FILE, OUT_SIG(REGION), WIDTH => 0); 
NEW_LINE(SIGNATURE_FILE); 



end loop; 



TEXTJO.CLOSE(SIGNATURE^FILE); 
end STOR£_ADT_SIGNATURES_IN_FILE; 



********************************************************************************* 

********************************************************************************* 

********************************************************************************* 



-- Filename / Store_Signatures_In_File.a 
-- Date / 29 August 93 
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— Author / Scott Dolgoff 

— System / Sun SPARCstation 

— Compiler / Verdix Ada 

— Description / This program receives the encoded signatures and 

/ then stores them in the fde "Signature.dat" for 
/ subsequent use by a C++ program. 

with TEXTJO, ENCODE_OPERATOR_SIGNATURE_PKG, ADD_AD A_TYPE_TO_SIGNATURE_PKG ; 
use TEXTJO, ENCODE_OPERATOR_SlGNATURE_PKG, ADD_ADA_TYPE_TO_SIGNATURE_PKG; 

procedure STORE_SIGNATURES JNJTLE is 

package INTEGER_INOUT is new INTEGER_IO(INTEGER); 
use INTEGER JNOUT; 

IN_SIG, OUT_SIG : SIGNATURE; 

SIGNATURE_FILE_NAME : constant STRING := ’’Signature.dat"; 

SIGNATURE.FILE : TEXTJO.FILE.TYPE; 



begin 



- Get the encoded Operator signatures. 

ENCODE_OPERATOR_SIGNATURE(IN_SIG, OUT_SIG); 

-- Create the file to store the Operator signatures in. 

TEXTJO.CREATE(SIGNATURE_FILE, MODE => OUT_FILE, NAME => SIGNATURE_FILE_NAME); 

-- Store Operator input signature. 

for REGION in ALL_REGION S'FIRST .. ALL_REGIONS'LAST loop 

-- Note: Setting WIDTH to zero is critical because 
it left justifies the numbers. This makes 
it easy on the C++ program that has to read 
the numbers from a file as characters and 
then convert them to integers. 

PUT(SIGNATUREJTLE, IN_SIG(REGION), WIDTH => 0); 

NEW JJNE(SIGN ATU RE_FI LE) ; 



end loop; 



— Store Operator output signature. 

for REGION in ALL_REGIONS'FIRST .. ALL_REGIONS'LAST loop 

PUT(SIGNATURE_FILE, OUT_SIG(REGION), WIDTH => 0); 
NEW_LINE(SIGNATURE_FILE); 



end loop; 

TEXTJO.CLOSE(SIGNATURE_FILE); 
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end STORE_SIGNATURES_IN_FILE; 



APPENDIX E - C++ SOURCE CODE 



The code listed below is in alphabetical order and contains C++ routines for 
signature matching. 



/* 

Filename I ADTSignature.h 

Date I 31 August 93 
Author I Scott Dolgoff 

System I Sun SPARCstation 

Compiler I Sun C++ 2.0 

Description I This is a header file for the ADT Signature class. 

I It contains the various functions required to 
I determine whether a query and software base 
1 component match. 

*/ 

#ifndef ADT_SIGNATURE_H 

#define ADT_SIGNATURE_H // prevent multiple includes 

#include "sball.hxx" 

#include "sbextern.h" 

#include "Signature.h" 

#include <Primitives.h> 



struct SIGNATURES 

{ 

int INPUT_SIG [ ALL_REGIONS] ; 
int OUTPUT_SIG[ALL_REGIONS]; 
}; 



struct MATCHJJST 

{ 

int SB_OPERATOR; 
struct MATCH_LIST *NEXT; 

}; 



struct PARAMETERS 

{ 

int NUM J3F JNPUT_PARAM ETERS ; 
int NUM_OF_OUTPUT_PARAMETERS; 

}; 



typedef struct MATCHJJST ELEMENT; 
typedef ELEMENT *LINK; 



class ADT_SIGNATURE { 
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private: 



Boolean MATCH_FOUND; 
int MAX_LEVELS; 

int GET_NUMBER(FILE *ifp); 

void TREE.TRAVERSAL (LINK QUERY_OPERATORS[], 
Boolean ONE_TO_ONE_MAP[], 
int LEVEL); 



public: 



// Retrieves ADT operator signatures stored in text files. 

void GET_SIGNATURES_FROM_FILE (int IN.SIGG, int OUT_SIGG, char*); 

// Load ADT operator input and output signatures into an array whose cells 
// represent the ADT operators. Also store the number of input and output 
//parameters each operator has in an array. 

void LO AD_ ADT_OPERATOR_SI GN ATURES (SIGNATURES THE_SIGNATURE[], 

PARAMETERS OPERATOR _IO[], 
SB_ADT_COMPONENT*); 



// Create an array of linked lists. Each array cell corresponds to 
// a query component ADT operator. Each linked list is made up of 
// all software base component ADT operators that match the query 
// component ADT operator. 

void BUILD_OPERATOR_MATCH_LIST (SIGNATURES QUER Y_SIGN ATUREG , 

LINK QUER Y_OPERATORS [] , 
PARAMETERS QUER Y_OPERATOR_IO Q , 
SB_ADT_COMPONENT * query _component» 
SB_ADT_COMPONENT *next_component); 



// This function attempts to find a valid mapping between query component 
// ADT operators and the software base component ADT operators. A 1 is 
// returned if a valid match is found, otherwise a 0 is returned, 
int ADT_MATCH (LINK QUERY_OPERATORS[], 

SB_ADT_COM PONENT *query_component, 
SB_ADT_COMPONENT *next_component); 



}; 



#endif // ADT_SIGN ATURE_H 



I****************************************** **************************** *+**+***++ 

********************************************************************************* 

********************************************************************************* 



/* 
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Filename I ADT_Signature.cxx 
Date I 31 August 93 
Author I Scott Dolgoff 

System I Sun SPARCstation 

Compiler I Sun C++ 2.0 

Description I This is the main module for the ADT_Signature class. 

I It contains the various functions required to 
I determine whether a query and software base 
I component match. 

I TECHNICAL NOTE: In C++ arrays are treated as pointers to 
I the head of the array. Therefore, when arrays are passed 
I as function arguments, it is automatically a call by 
I reference. The only way to protect the actual argument 
I from being changed is to set a local array variable in the 
I function equal to the array that is passed by reference and 
I then work exclusively with the local array. 

*/ 



I I #in elude < stream. hxx> 

// #include <stdlib.h> 

// #include <Primitives.h> 
#include "ADT_Signature.h" 



I* This function reads a text file with a Components ADT operator 
signatures that was created by the Ada program that encodes 
signatures. A character-to-number conversion is necessary to 
load the actual numeric values for all the signature regions into 
the corresponding C++ signature arrays. */ 
int ADT_SIGNATURE::GET_NUMBER(FILE *ifp) 

{ 

intNUM, C; 
do { 

NUM = 0; 

while ( ((C = getc(ifp)) != V) && (C != EOF) ) 

NUM = (10 * NUM) + (C - '0'); 

if (C = V) 

return NUM; 

else 

{ printfC’*** Error: Occurred while reading signatures from\n"); 
printf(" ADT operator text fileAn”); 

} 

) while (1); 



} 



// Retrieves ADT operator signatures stored in text Files, 
void ADTjSIGNATURE::GET_SIGNATURES_FROM_FILE 



273 



{ 



(int IN_SIG[], int OUT_SIG[], char *id) 



FILE *ifp; 
int INDEX; 

// load input and output signatures using the operator name 
// as the prefix and M .txt" as the suffix 
char *file__suffix = ".txt"; 
char *file_name; 

filename = new char[strlen(id) + strlen(file_suffix) +1]; 
strcpy(file_name, id); 
strcat(file_name, file_suffix); 
ifp = fopen(file_name, V); 

// get input signature 

for (INDEX = 0; INDEX < ALL.REGIONS; ++INDEX) 
IN_SIG[INDEX] = GET_NUMBER(ifp); 

// get output signature 

for (INDEX = 0; INDEX < ALL.REGIONS; ++INDEX) 
OUT_SIG[INDEX] = GET_NUMB ER(ifp); 

fclose(ifp); 



} 



// Load ADT operator input and output signatures into an array whose cells 
// represent the ADT operators. Also store the number of input and output 
// parameters each operator has in an array. 

void ADT_SIGN ATURE: : LO AD_ ADT_OPERATOR_SIGN ATURES (SIGNATURES THE__SIGNATURE[], 

PARAMETERS OPERATOR_IO[], 
SB_ADT_COMPONENT *THE_COMPONENT) 



int REGION; 

int OPERATOR.COUNT = 0; 

Dictionarylterator next_operator = 

THE_COMPONENT->adt_operator_iterator(); 

while ( next_operator.moreData() ) 

{ 

SB_ADT_OPERATOR *THE_ADT_OPERATOR = 

(SB_ADT_OPERATOR *) (Entity *) nextyoperator(); 

// Load the number of input and output parameters the operator 
//has. 

OPERATOR_IO[OPERATOR_COUNT] ,NUM_OF_INPUT_PARAMETERS = 
THE_ADT_OPERATOR->num_inputs(); 



OPERATOR_IO[OPERATOR_COUNT] . N U M_0 F_0 UTP UT_P AR AM ETE R S = 
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THE_ADT_OPERATOR->num_outputs(); 



// Load the operator input and output signatures. 

Array *IN_SIGNATURE = new Array(OC_integer, ALL_REGION S , 1); 
IN_SIGNATURE = (Array *) (Entity *) 

THE_ADT_OPERATOR->get_input_signature(); 
// Load the Array object into a C++ array, 
for (REGION=l; REGION <= ALL_REGION S ; ++REGION) 

{ 

// Note: C++ array goes from 0 .. ALL_REGIONS -1 
THE_SIGNATURE[OPERATOR_COUNT].INPUT_SIG[REGION - 1] = 

* ( (Integer *) (Entity *) (*IN_SIGNATURE) [REGION]); 

} 



Array *OUT_SIGNATURE = new Array (OC_integer, ALL_REGION S , 1); 
OUTJSIGNATURE = (Array *) (Entity *) 

THE_ADT_OPERATOR->get_output_signature(); 

// Load the Array object into a C++ array. 

for (REGION=l; REGION <= ALL_REGION S ; ++REGION) 

{ 

// Note: C++ array goes from 0 .. ALL_REGIONS -1 

THE_SIGN ATURE[ OPERATO R_COUNT] .OUTPUT_SIG [ REGION - 1] = 

*( (Integer *) (Entity *) (*OUT_SIGNATURE) [REGION]); 



} 

OPERA TOR_COUNT = OPERATOR.COUNT + 1; 

) 



// Create an array of linked lists. Each array cell corresponds to 
// a query component ADT operator. Each linked list is made up of 
// all software base component ADT operators that match the query 
// component ADT operator. 

void ADT_SIGNATURE::BUILD_OPERATOR_MATCH_LIST(SIGNATURES QUERY JSIGNATURE[] , 

LINK QUERY_OPERATORS[], 

PARAMETERS QUERY JDPERATOR_IO[] , 
SB_ADT_COMPONENT *query_component, 
SB_ADT_COMPONENT *next_component) 

( 

// class SIGNATURE comes from Signature.h 
SIGNATURE SIG; 

// Create an array that holds the input and output signature of 
// each software base component ADT operator. 

// We don't know the size in advance, so it must be a dynamic array. 

SIGNATURES *SB_SIGNATURE; 

SB ^SIGNATURE = new 

SIGNATURES[next_component->num_adt_operators()]; 
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// Create an array that holds the number of input and output 
// parameters of each software base component ADT operator. 

// We don’t know the size in advance, so it must be a dynamic array. 

PARAMETERS *SB_OPERATOR_IO; 

SB_OPERATOR_IO = new 

PARAMETERS [ n ext_componen t->nu m_adt_operators()] ; 

// load software base component ADT operator signatures 

LOAD_ADT_OPERATOR_SIGNATURES(SB_SIGNATURE, SB_OPERATOR_IO, next_component); 



Boolean COMPONENTS_CANNOT_MATCH = FALSE; 
int INDEX - 0; 

while ( (INDEX < query_component->num_adt_operators()) && 

(! COMPONENTS_CANNOT_MATCH) ) 

{ 

LINK PTR; 
int MATCH; 

// go through all software base component ADT operators and store 
// each one that matches into the query component ADT operator 
// linked list. Note: if none match, then the two components 
// do not match so no further processing is necessary, 
int SBJNDEX = 0; 

Boolean QUERY_ADT_OPERATOR_HAS_MATCH = FALSE; 
while ( (SB_INDEX < next_component->num_adt_operators()) ) 

{ 

// First, ensure the number of input parameters for the query 
// component ADT operator is the same as the number of input 
// parameters for the software base component ADT operator, 
if (QUERY_OPERATOR_IO|TNDEX].NUM_OF_INPUT_PARAMETERS = 
SBJ3PERATORJO[SBJNDEX].NUMJ3FJNPUTJ>ARAMETERS) 

{ 

MATCH = SIG. MATCH JNPUT_SIGNATURES( 

QUERY_SIGNATURE[INDEX] INPUT.SIG, 
SB_SIGNATURE[SBJNDEX].INPUT_SIG); 



if (MATCH == 1) 

{ 



// Now check for a false match. 

MATCH = SIG.CHECK_FALSE_MATCH( 

QU ER Y_S IGN ATUREjlNDEX] .INPUT_SIG , 
SB_SIGNATURE[SB_INDEX].INPUT_SIG); 

if (MATCH >= 0) // Not a false match 

{ 



// Ensure the number of output parameters for the query 
// component ADT operator is less than or equal the number 
// of output parameters for the software base component 
// ADT operator. 

if (QUERY_OPERATORJO[INDEX].NUM_OF_OUTPUT_PARAMETERS <= 
SB_OPERATOR_IO[SB_INDEX].NUM_OF_OUTPUT_PARAMETERS) 

{ 



276 



MATCH = SIG.MATCH_OUTPUT_SIGNATURES( 

QUERY_SIGNATURE[1NDEX] .OUTPUT.SIG, 
SB_SIGNATURE[SBJNDEX].OUTPUT_SIG); 



if (MATCH =1) 

{ 

QUERY_ADT_OPERATOR_HAS_MATCH = TRUE; 

// add matched software base component ADT operator to linked list 
if (QUERYJDPERATORSflNDEX] = NULL) 

{ 

// initialize list 

PTR = new ELEMENT; 

PTR->SB_OPERATOR = SBJNDEX; 

PTR->NEXT = NULL; 
QUERY_OPERATORS[INDEX] = PTR; 

} 

else 

{ 

// append to list 

PTR->NEXT = new ELEMENT; 

PTR = PTR->NEXT; 

PTR->SB_OPERATOR = SBJNDEX; 

PTR->NEXT = NULL; 

} 

}; 

}; 



}; // if num input params 
SBJNDEX = SBJNDEX + 1; 

) 



if (! QUERY_ADT_OPERATOR_HAS_MATCH) 

// query component operator does not match any of the software base 
// component operators 

COMPONENTS_CANNOT_MATCH = TRUE; 



INDEX = INDEX + 1; 

} 



} 



// The "tree traversal" treats the linked lists of matched software 

// base component ADT operators as a tree rooted at the first 

// query component operator. Conceptually, the tree is a combinatoric 

// explosion of all possible mappings of one query ADT operator to 

// a valid software base ADT operator (so that no software base component 

// ADT operator is used more than once). The traversal does not explore 
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// all paths. If a node is reached that selects a software base component 
// ADT operator that was already selected, no lower level nodes on that 
// path need to be visited. Also t the tree is never physically built, 

// just logically traversed. This helps alleviate potential memory 
// problems. Backtracking occurs when a query ADT operator (tree level) 

// is reached that cannot find an unused software base ADT operator from 

// its linked list of valid mappings. Finally, it was necessary to 

// make the array QUERY_OPERATORS[] local at each level of recursion in 

// order to provide "memory” for the backtracking. In the worst case 

// it is estimated that the number of paths to be checked is N factorial 

// where N is the total number of software base ADT operators. 

void ADT_SIGNATURE::TREE_TRAVERSAL (LINK QUER Y_OPERATORS [] , 

Boolean ONE_TO_ONE_M AP[ ] , 
int LEVEL) 



int INDEX; 

LINK * Lv_QUER Y_OPERATORS ; 

// We don’t know the size in advance, so it must be a dynamic array. 

Lv_QUERY_OPERATORS = new LINK[MAX_LEVELS]; 

for (INDEX = 0; INDEX < MAX.LEVELS; ++ENDEX) 

L v_QUERY_OPERATORS [ INDEX] = QUERY.OPERATORS [INDEX] ; 

while ( (Lv_QUERY_OPERATORS[LEVEL] !=NULL) && (! MATCH_FOUND) ) 

{ 

if ( ! ONE_TO_ONE_MAP[Lv_QUERY_OPERATORS[LEVEL]->SB_OPERATOR] ) 

// query operator maps to sb operator that has not been 
// claimed (mapped to) yet 
{ 

ONE_TO_ONE_MAP[(Lv_QUERY_OPERATORS[LEVEL]->SB_OPERATOR)] = TRUE; 
if ( (LEVEL + 1) < MAX_LEVELS ) 

{ 

TREE_TRAVERSAL (Lv_QUERY_OPERATORS, ONE_TO_ONE_MAP, LEVEL + 1); 
// backtracked to this point, now will try next sb operator 
// in the list so must reset current sb operator mapped to 
// by this query operator to FALSE 

ONE_TO_ONE_MAP[(Lv_QUERY_OPERATORS[LEVEL]->SB_OPERATOR)] = 

FALSE; 

Lv_QUERY_OPERATORS[LEVEL] = Lv_QUERY_OPERATORS [LEVEL] ->NEXT; 

} 

else 

MATCH_FOUND = TRUE; 

} 

else 

// try the next query' operator in the list 

Lv_QUERY_OPERATORS[ LEVEL] = Lv_QUERY_OPERATORS[LEVEL]->NEXT; 



// This function attempts to find a valid mapping between query component 
// ADT operators and the software base component ADT operators. A 1 is 
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// returned if a valid match is found, otherwise a 0 is returned. 

int ADT_SIGNATURE::ADT_MATCH( LINK QUERY_OPERATORS[], 

SB_ADT_COMPONENT *query_component, 
SB_ADT_COMPONENT *next_component) 



int LEVEL = 0; 
int MATCH = 0; 

MATCH_FOUND = FALSE; 

MAX_LEVELS = query _component->nuin_adt_operators(); 

// Create Boolean array corresponding to the software base component 
//set of ADT operators. Initially all ADT operators are false. As 
// a query component ADT operator is matched to a software base 
// component ADT operator, the corresponding Boolean array cell is 
// set to TRUE indicating that software base component ADT operator 
// cannot be selected by another query component ADT operator. 

// We don't know the size in advance, so it must be a dynamic array. 

Boolean *ONE_TO_ONE_MAP; 

ONE_T 0_0NE_M AP = new Boole an[next_component->num_adt_operators()]; 
int INDEX; 

for (INDEX = 0; INDEX < next_component->num_adt_operators(); ++INDEX) 
ONE JTOJDNE_MAP[LNDEX] = FALSE; 



TREE.TRAVERSAL (QUERY.OPERATORS, ONE_TO_ONE_MAP, LEVEL); 

if (MATCH_FOUND) 

MATCH = 1; 

return MATCH; 



****************** ********** ***************************************************** 
********************************************************************************* 
********************************************************************************* 



/* 

Filename I Signature.h 
Date I 30 August 93 
Author I Scott Dolgoff 

System I Sun SPARCstation 

Compiler I Sun C++ 2.0 

Description I This is a header file for the Signature class. 

I It contains the various functions required to 
I determine whether a query and software base 
I component signature match. It also contains 
I functions that calculate the signature closeness 
I degree between the query and software base 
I component signatures. 
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#ifndef SIGNATURE_H 

#define SIGNATURE_H // prevent multiple #includes 



#include <stdio.h> 



//ADDED 

^define ALL.REGIONS 24 
#defineINPUT_REGIONS 18 
#deflne OUTPUT_REGIONS 17 

// ADDED 

// set value for a null pointer 
#define NULL 0 



class SIGNATURE { 



private: 



int BEST_CHILD(int REGION.NUMBER, int SB_SIG[]); 
int NUM_OF_TYPES_IN_REGION(int REGION_NUMBER, int SB_SIG[]); 
int SUM_OF_CHILDREN_TYPES(int REGI ON_NU MB ER , int SB_SIGQ); 
int PARENT (int REGION.NUMBER); 
int GET_N UMBER (FILE *ifp); 

void ADD_INSTANTIATION_TO_SlGNATURE(int REGI ON_NU MB ER , 

int SB_S1G[]); 

void REMO VE_A_TY PE_FROM_ ALL_ AN CESTORS (in t REGIONNUMBER, 

int Q_SIG[], 
int SB_SIG[]); 

void REMOVE_A_TYPE_FROM_ALL_DESCENDANTS(int REGION_NUMBER, 

int SB_S1G[]); 



public: 

/* This function reads a text file with the Component signatures 
that was created by the Ada program responsible for encoding 
signatures. A character-to-number conversion is necessary to 
load the actual numeric values for all the signature regions into 
the corresponding C++ signature arrays. */ 
void GET_SIGN ATURES (int IN_SIG[], int OUT_SIG[]); 

/* This function determines whether a query component input 
signature and a software base component input signature 
match each other. The function returns a 1 if a match was 
made and a 0 if the two signatures do not match. */ 
int MATCH JNPUT_SIGNATURES (int Q_SIG[], int SB_SIG[]); 

/* This function determines whether a query component output 
signature and a software base component output signature 
match each other. The function returns a 1 if a match was 
made and a 0 if the two signatures do not match. */ 
int MATCHJDUTPUT_S1GNATURES (intQJSlGf], int SB_S1G[]); 

/* This function is only necessary for input signatures. It also 
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calculates input signature closeness degree as a by product. It 
is necessary to calculate the closeness degree in this manner 
when the number of input parameters in the query component are not 
equal to the number of input parameters in the software base component. 
This function returns the value of the closeness degree if a valid 
match was found, or a -1 if a False Match was found. */ 
int CHECK_FALSE_MATCH (int Q_SIG[], int SB_SIG[]); 

/* Calculates the output signature closeness degree. */ 

int CALC_OUT_CLOSE_DEGREE (int Q_SIG[], int SB_SIG[]); 



#endif // SIGNATURE_H 



*** **************** ********************* ******* ***** ********* ******** ** **** ****** 
********************************************************************************* 
********************************************************************************* 



/* 

Filename I Signature.CXX 
Date I 30 August 93 
Author I Scott Dolgoff 

System I Sun SPARCstation 

Compiler I Sun C++ 3.0 

Description I This is the main module for the Signature class. 

I It contains the various functions required to 
I determine whether a query and software base 
I component signature match. It also contains 
I functions that calculate the signature closeness 
I degree between the query and software base 
I component signatures. Note that the terms "nodes” 

I and "regions" are used interchangeably in the 
I documentation below. 

I TECHNICAL NOTE: In C++ arrays are treated as pointers to 
I the head of the array. Therefore, when arrays are passed 
I as function arguments, it is automatically a call by 
I reference. The only way to protect the actual argument 
I from being changed is to set a local array variable in the 
I function equal to the array that is passed by reference and 
I then work exclusively with the local array. 



#include <stream.hxx> 

#include "Signature.h" 

/* Define the region numbers for the Ada types. Note that while 
all Ada programs refer to the regions as 1..24, C++ arrays 
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start at 0 and therefore we need to decrement all regions by 
1 so we now have a set of regions from 0..23 that map to 
the original regions 1.. 24. */ 

#define GENE RIC.PRIV ATE 17 

#define GENERIC_DISCRETE 1 8 
#define GENERIC_RANGE 1 9 

#define GENERIC.ARRAY 20 

#define GENERIC.DIGITS 21 
#define GENERIC_DELTA 22 

#define GENERIC_ACCESS 23 



#define 


PRIVATE 


16 


#define 


DISCRETE 


7 


#define 


INTEGER 


5 


#defme 


RANGE 


4 


#deFine 


NATURAL 


1 


#define 


POSITIVE 


0 


#define 


ENUMERATION 


#define 


BOOLEAN 


2 


#define 


CHARACTER 


#define 


DIGITS 


15 


#deFine 


FLOAT 


14 


#define 


DELTA 


13 


#define 


FIXED 


12 


#deFme 


ARRAY 


11 


#define 


STRING 


10 


#define 


ACCESS 


9 


#defme 


RECORD 


8 



/* This function reads a text file with the Component signatures 
that was created by the Ada program responsible for encoding 
signatures. A character-to-number conversion is necessary to 
load the actual numeric values for all the signature regions into 
the corresponding C++ signature arrays. */ 
int SIGNATURE: :GET_NUMBER(FILE *ifp) 

{ 

int NUM, C; 
do { 

NUM = 0; 

while ( ((C = getc(ifp)) != V) && (C != EOF) ) 

NUM = (10 * NUM) + (C - ’0'); 

if (C = V) 

return NUM; 

else 

{ printf(”*** Error: Occurred while reading signatures fromW); 
printf(” Signature.dat text file.VT); 

} 

} while (1); 

} 
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/* This function selects the child that will provide the shortest 
downward path when trying to select the closest matching 
software base component output parameter. It returns the 
Region value of the child, or -1 if the current node is a leaf 
node and therefore has no children. */ 
int SIGNATURE::BEST_CHILD(int REGION.NUMBER, int SB_SIG[]) 
{ 

const int NO.CHILDREN = -1; 

switch (REGION_NUMB ER) 

{ 



case POSITIVE: 


return NO.CHILDREN; 
break; 


case NATURAL: 


return POSITIVE; 
break; 


case RANGE: 


return NO.CHILDREN; 
break; 


case INTEGER: 


if (SB_SIG[RANGE] > 0) 
return RANGE; 
else 

return NATURAL; 
break; 


case BOOLEAN: 


return NO.CHILDREN; 
break; 



case CHARACTER: 

return NO_CHILDREN; 
break; 

case ENUMERATION: 

if (SB_SIG[CHARACTER] > 0) 





return CHARACTER; 
else 

return BOOLEAN; 
break; 


case DISCRETE: 


if (SB_SIG[ENUMERATION] > 0) 
return ENUMERATION; 
else 

return INTEGER; 
break; 


case ACCESS: 
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return NO.CfflLDREN; 
break; 


case RECORD: 


return NO.CHILDREN, 
break; 


case STRING: 


return N 0_C HI LDREN ; 
break; 


case ARRAY: 


return STRING; 
break; 


case FIXED: 


return NO.CfflLDREN; 
break; 


case DELTA: 


return FIXED; 
break; 


case FLOAT: 


return NO.CHI LDREN; 
break; 


case DIGITS: 


return FLOAT; 
break; 


case PRIVATE: 


return NO.CHILDREN; 
break; 


default: 


printf("** Error in SlGNATURE::BEST_CHILD()\n”); 

return -2; 

break; 


} 





) 

/* This function returns the total number of type instances contained by 
all the children of a particular node. */ 

int SIGNATURE: :SUM_OF_CHILDREN_TYPES(int REGION.NUMBER, int SB_SIG[]) 

{ 

const int NO.CHILDREN = 0; 

switch (REGION.NUMBER) 

{ 
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case POSITIVE: 


return NO ^CHILDREN; 
break; 


case NATURAL: 


return SB_SIG[ POSITIVE]; 
break; 


case RANGE: 


return NO_CHILDREN; 
break; 


case INTEGER: 


return (SB_SIG[ RANGE] + SB _SIG [NATURAL]); 
break; 


case BOOLEAN: 


return N 0_C HI LD REN ; 
break; 



case CHARACTER: 

return NO_CHILDREN; 
break; 

case ENUMERATION: 

return (SBJ5IG [BOOLEAN] + SB_SIG[CHARACTER]); 





break; 


case DISCRETE: 


return (SB.SIG [INTEGER] + SB_SIG[ENUMERATTON]); 
break; 


case ACCESS: 


return NO_CHILDREN; 
break; 


case RECORD: 


return NO_CHILDREN ; 
break; 


case STRING: 


return NO.CHILDREN; 
break; 


case ARRAY : 


return SB_SIG[ STRING]; 
break; 


case FIXED: 


return NO_CHILDREN; 
break; 


case DELTA: 


return SB_SIG[FDCED]; 
break; 



285 



case FLOAT: 

return NO_CHILDREN; 
break; 

case DIGITS: 

return SB_SIG[FLOAT]; 
break; 

case PRIVATE: 

return N 0_CHILDREN ; 
break; 

case GENERIC_PRIVATE: 

return NO ^CHILDREN; 
break; 

case GENERIC.DISCRETE: 

return NO.CMLDREN; 
break; 

case GENERIC_RANGE: 

return NO.CHILDREN; 
break; 

case GENERIC_ ARRAY: 

return NO.CHILDREN; 
break; 

case GENERIC.DIGITS: 

return NO.CHILDREN; 
break; 

case GENERIC_DELTA: 

return NO_CHILDREN; 
break; 

case GENERIC_ACCESS: 

return NO_CHILDREN; 
break; 



default: 

printf(”** Error in SIGNATURE::SUM_OF_CHILDREN..()\n n ); 

return -2; 

break; 

) 

) 
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/* This function returns the parent of a specified Region. The 
Region corresponds to a subtype in the Ada subtype hierarchy. */ 
int SIGNATURE: .PARENT (int REGION_NUMBER) 

{ 

switch (REGION.NUMBER) 

{ 



case POSITIVE: 


return NATURAL; 
break; 


case NATURAL: 


return INTEGER; 
break; 


case RANGE: 


return INTEGER; 
break; 


case INTEGER: 


return DISCRETE; 
break; 


case BOOLEAN: 


return ENUMERATION; 
break; 



case CHARACTER: 

return ENUMERATION; 
break; 

case ENUMERATION: 

return DISCRETE; 





break; 


case DISCRETE: 


return GENERIC_PRIVATE; 
break; 


case ACCESS: 


return GENERIC_PRIVATE; 
break; 


case RECORD: 


return GENERIC_PRIVATE; 
break; 


case PRIVATE: 


return GENERIC_PRIVATE; 
break; 


case STRING: 


return ARRAY; 
break; 
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case ARRAY: 


return GENERIC_PRJVATE; 
break; 


case FIXED: 


return DELTA; 
break; 


case DELTA: 


return GENERIC_PRTVATE; 
break; 


case FLOAT: 


return DIGITS; 
break; 


case DIGITS: 


return GENERIC.PRIVATE; 
break; 



case GENERIC J>RIV ATE: 

return -1; // -1 is delimeter that defines the 



default: 


break; // top of the subtype hierarchy 

printf("** Error in SIGNATURE:: PARENT()\n M ); 

return -2; 

break; 



/* This function adds a type instance to each of the ancestors 
of the specified region in the output type hierarchy. 

This is done when a query parameter is matched to a software 
base component generic parameter. By instantiating the 
generic, we make it easier to perform later type closeness 
calculations. */ 

void SIGNATURE::ADD_INSTANTIATION_TO_SIGNATURE(int REGION_NUMBER, 

int SB_SIG[]) 

( 

switch (REGION.NUMBER) 



case POSITIVE: 


SB_SIG[NATURAL] ++; 
SB_SIG [INTEGER] ++; 
SB_SIG [DISCRETE] ++; 
break; 


case NATURAL: 


SB_SIG[INTEGER] ++; 
SB _SIG[ DISCRETE] ++; 
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break; 



case RANGE: 


SB_SIG[INTEGER] ++; 
SB_SIG[DISCRETE] ++; 
break; 


case INTEGER: 


SB_SIG [DISCRETE] ++; 
break; 


case BOOLEAN: 


SB_SIG[ENUMERATION] ++; 
SB_SIG[DISCRETE] ++; 
break; 



case CHARACTER: 

SB_SIG[ENUMERATION] ++; 
SB_SIG[ DISCRETE] ++; 
break; 

case ENUMERATION: 





SB_SIG [DISCRETE] ++; 
break; 


case DISCRETE: 


// top of hierarchy so no ancestors 
break; 


case ACCESS: 


// top of hierarchy so no ancestors 
break; 


case RECORD: 


// top of hierarchy so no ancestors 
break; 


case STRING: 


SB_SIG[ ARRAY] ++; 
break; 


case ARRAY: 


// top of hierarchy so no ancestors 
break; 


case FIXED: 


SB_SIG[ DELTA] ++; 
break; 


case DELTA: 


// top of hierarchy so no ancestors 
break; 


case FLOAT: 


SB_SIG[DIGITS] ++; 
break; 
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case DIGITS: 

// top of hierarchy so no ancestors 
break; 

case PRIVATE: 

// top of hierarchy so no ancestors 
break; 



default: 

printf("** Error in SIGNATURE: :ADD^INSTANTIATION_TO_SIGNATURE()\n ,, ); 
break; 



} 



/* This function removes a type instance from all ancestor nodes of the 
specified region in both the query and software base output 
signatures. Each ancestor must have a type instance because output 
parameter patterns force a type instance in all ancestors of each 
output parameter type. */ 

void SIGNATURE: : REMO VE_A_TYPE_FROM_ALL_ANCESTORS (int REGION_NUMBER, 

int Q_SIG[], 
int SB_SIG[]) 

( 



switch (REGI0N_NU\\1BER) 

{ 

case POSITIVE: 

SB_SIG[NATURAL] ~; 
SB_SIG[ INTEGER] -; 
SB_SIG[DISCRETE] ~; 
Q_SIG[NATURAL] -; 
Q_SIG[INTEGER] ~; 
Q_SIG[DISCRETE] -; 
break; 

case NATURAL: 

SB_SIG[INTEGER] -; 
SB_SIG[DISCRETE] -; 
Q_SIG|TNTEGER] -; 
Q_SIG[DISCRETE] -; 
break; 

case RANGE: 

SB_SIG[ INTEGER] 
SB_SIG[DISCRETE] ~; 
Q_SIG[INTEGER] -; 
Q_SIG[DISCRETE] 
break; 
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case INTEGER: 


SB_SIG [DISCRETE] 
Q_SIG [DISCRETE] ~; 
break; 


case BOOLEAN: 


SB_SIG[ENUMERATION] 
SB_SIG[ DISCRETE] -; 
Q_SIG [ENUMERATION] -; 
QJSIGfDISCRETE] 
break; 



case CHARACTER: 

SB_SIG[ENUMERATION] 
SB_SIG[DISCRETE] 
Q_SIG [ENUMERATION] 
Q_SIG[DISCRETE] 
break; 

case ENUMERATION: 

SB_SIG[DISCRETE] 





Q_SIG [DISCRETE] ~; 
break; 


case DISCRETE: 


// top of hierarchy so no ancestors 
break; 


case ACCESS: 


// top of hierarchy so no ancestors 
break; 


case RECORD: 


// top of hierarchy so no ancestors 
break; 


case STRING: 


SB_SIG[ARRAY] ~; 
Q_SIG[ARRAY] ~; 
break; 


case ARRAY : 


// top of hierarchy so no ancestors 
break; 


case FIXED: 


SB_SIG [DELTA] 
Q_SIG[DELTA] ~; 
break; 


case DELTA: 


// top of hierarchy so no ancestors 
break; 


case FLOAT: 
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SB_SIG(DIGITS] 

Q_SIG[DIGITS] 

break; 


case DIGITS: 


// top of hierarchy so no ancestors 
break; 


case PRIVATE: 


// top of hierarchy so no ancestors 
break; 


default: 





printfC** Error in SIGNATURE::REMOVE_AJITPE_FROM_ALL_ANCESTORS()\n"); 
break; 

) 

) 

f* This function removes a type instance from all descendant nodes of the 
specified region in both the query and software base input 
signatures. Each descendant must have a type instance because input 
parameter patterns force a type instance in all descendants of each 
input parameter type. */ 

void SIGNATURE:: REMOVE_AJITPE_FROM_ALL_DESCENDANTS(int REGIONNUMBER, 

int SB_SIG[]) 

( 

switch (REGION_NUMBER) 



case POSITIVE: 


// leaf node so no descendants 
break; 


case NATURAL: 


SB_SIG[POSITFVE] ~; 
break; 


case RANGE: 


// leaf node so no descendants 
break; 


case INTEGER: 


SB_SIG[POSITIVE] 
SB_SIG[NATURAL] ~; 
SB_SIG[RANGE] 
break; 


case BOOLEAN: 


// leaf node so no descendants 
break; 
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case CHARACTER: 

// leaf node so no descendants 
break; 

case ENUMERATION: 

SB_SIG[BOOLEAN] ~; 





SB_SIG[CHARACTER] ~; 
break; 


case DISCRETE: 


SB_SIG[POSITTVE] ~; 
SBJSIG[NATURAL] ~; 
SB_SIG[RANGE] 
SB_SIG[INTEGER] 

SB _SIG [BOOLEAN] 
SB_SIG[ CHARACTER] ~; 
SB_SIG[ ENUMERATION] 
break; 


case ACCESS: 


// leaf node so no descendants; 
break; 


case RECORD: 


// leaf node so no descendants; 
break; 


case PRIVATE: 


// leaf node so no descendants; 
break; 


case STRING: 


// leaf node so no descendants; 
break; 


case ARRAY: 


SB_SIG[ STRING) -; 
break; 


case FIXED: 


// leaf node so no descendants; 
break; 


case DELTA: 


SB_SIG[FIXED] — ; 
break; 


case FLOAT: 


// leaf node so no descendants; 
break; 


case DIGITS: 


SB_SIG[FLOAT] ~; 
break; 



case GENERIC ^PRIVATE: 
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SB_SIG[POSITTVE] 

SB.SIGfNATURAL] 

SB_SIG[RANGE] 

SB_SIG[INTEGER] 

SB.SIG [BOOLE AN] 
SB_SIG[CHARACTER] 
SB_SIG[ ENUMERATION] ~; 
SB_SIG[DISCRETE] 
SB_SIG[ACCESS] 

SB _SIG[ RECORD] 

SB.SIG [PRIVATE] 

SB_SIG[ ARRAY] ~; 

SB_SIG[ STRING] 
SB_SIG[DELTA] 
SB_SIG[FIXED] — ; 
SB_SIG[DIGITS] 

SB_SIG [FLOAT] ~; 
break; 



default: 

printfC*** Error in SIGNATURE: :REMOVE_A_TYPE_ALL_DESCENDANTS0\n M ); 
break; 



a *********************** c*****^*^*^^**^^^*^***********^**^*^***^ 

// **** PUBLIC FUNCTIONS **** 

II ************************************************************** 



/* This function reads a text file with the Component signatures 
that was created by the Ada program responsible for encoding 
signatures. A character-to-number conversion is necessary to 
load the actual numeric values for all the signature regions into 
the corresponding C++ signature arrays. */ 
void SIGNATURE: :GET_SIGNATURES 

(int IN_SIG[], int OUT_SIG[]) 

{ 

FILE *ifp; 
int INDEX; 



ifp = fopenC'Signature.dat", V); 



// get input signature 

for (INDEX = 0; INDEX < ALL_REGIONS; ++INDEX) 
IN_SI G [INDEX] = GET_NUMB ER(ifp); 



// get output signature 

for (INDEX = 0; INDEX < ALL .REGIONS; ++INDEX) 
OUT_SIG[ INDEX] = GET.NTJMB ER(ifp); 
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fclose(ifp); 



) 



/* This function determines whether a query component input 
signature and a software base component input signature 
match each other. The function returns a 1 if a match was 
made and a 0 if the two signatures do not match. */ 
int SIGNATURE::MATCH_INPUT_SIGNATURES (int Q_SIG[], int SB_SIG[]) 
{ 

int INDEX, MATCH; 



MATCH = 1; 

INDEX = 0; 

while (MATCH == 1 && INDEX < INPUT_REGIONS) 

I 

if (Q_SIG[INDEX] <= SB_SIG[INDEX]) 

{ 

INDEX = INDEX + 1; 

) 

else 

{ 

MATCH = 0; 

} 

} 

return MATCH; 

} 



/* This function determines whether a query component output 
signature and a software base component output signature 
match each other. The function returns a 1 if a match was 
made and a 0 if the two signatures do not match. */ 
int SIGNATURE: :MATCH_OUTPUT_SIGNATURES (int Q_SIG[], int SB_SIG[]) 

{ 

int INDEX, MATCH, EXCESS; 

int GENERIC_PRI V ATE_NUM , GENERIC.DI SC RETE_NUM, 

GENERIC JIANGE_NUM, GENERIC_ARRA Y_NUM , GENERIC_DIGITS_NUM, 
GENERIC_DELTA_NUM , GENERIC_ACCESS_NUM; 



MATCH = 1; 

GENERIC_PRIVATE_NUM = SBJSIG[GENERIC_PRIVATE]; 
GENERIC_DISCRETE_NUM = SB_SIG[GENERIC_DISCRETE]; 
GENERIC_RANGE_NUM = SB_SIG[GENERIC_RANGE]; 
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G ENERJ C_ ARR A Y_NU M = SB_SIG[GENERIC_ARRAY]; 
GENERIC_DIGITS_NUM = SB_SIG [ G ENERIC_DIGITS ] ; 
GENERIC_DELTA_NUM = SB_SIG[GENERIC_DELTA]; 
GENERIC_ACCESS_NUM = SB_SIG[GENERIC_ACCESS]; 



INDEX = 0; 

while (MATCH = 1 && INDEX < OUTPUT_REGIONS) 

{ 

EXCESS = Q_SIG[INDEX] - SB_SIG [INDEX]; 
if (Q_SIG[INDEX] <= SB_SIG[INDEX]) 

{ 

INDEX = INDEX + 1; 

} 



else 

{ 

MATCH = 0; 
switch (INDEX) 

{ 

case POSITIVE: 

if (GENERIC_DISCRETE_NUM > 0) 

{ 

// reduce number of generics that 

// can now' be instantiated 

if (GENERIC J3ISCRETE_NUM >= EXCESS) 

{ 

MATCH = 1; 

GENERIC_DISCRETE_NUM = 
GENERIC_DISCRETE_NUM - EXCESS; 
EXCESS = 0; 



else 

{ 

EXCESS = EXCESS - GENERIC_DISCRETE_NUM; 
GENERIC_DISCRETE_NUM = 0; 

} 



if ( (EXCESS <= G ENERIC_PRI V ATE_NUM) && 
(EXCESS >0)) 



// reduce number of generics that 
// can now be instantiated 
MATCH = 1; 

GENERIC_PRIVATE_NUM = 

GENERIC J>RIVATEJWM - EXCESS; 
EXCESS = 0; 

} 



if (MATCH = 1) 

( 

// need to "instantiate" the software base 
// signature with the matched query parameter 
// to use for later type closeness calculations 
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SB_SIG[INDEX] = SB_SIG[INDEX] + 1; 
ADD_INSTANTTATTONJTO_SIGNATURE(INDEX, SB_SIG); 
INDEX = INDEX + 1 ; 

} 



break; 



case NATURAL: 

if (GENERIC J)ISCRETE_NUM > 0) 



// reduce number of generics that 

// can now be instantiated 

if (GENERIC J)ISCRETE_NUM >= EXCESS) 

{ 

MATCH = 1; 

GENERIC_DISCRETE_NUM = 
GENERIC_DISCRETE_NUM - EXCESS; 
EXCESS = 0; 



else 

{ 

EXCESS = EXCESS - GENERIC_DISCRETE_NUM; 
GENERIC_DISCRETE_NUM = 0; 

} 



if ( (EXCESS <= GENERIC_PRIVATE_NUM) && 
(EXCESS > 0) ) 

{ 

// reduce number of generics that 
// can now be instantiated 
MATCH = 1; 

GENERIC J>RIVATE_NUM = 
GENERIC_PRIVATE_NUM - EXCESS; 
EXCESS = 0; 



if (MATCH = 1) 

t 

// need to ’’instantiate" the software base 
// signature with the matched query parameter 
// to use for later type closeness calculations 
SB_SIG[INDEX] = SB_SIG[INDEX] + 1; 
ADD_INSTANTTATION_TO_SIGNATURE(INDEX, SB_SIG); 
INDEX = INDEX + 1; 

} 



break; 



case RANGE: 

if (GENERIC_RANGE_NUM > 0) 

{ 

// reduce number of generics that 
// can now be instantiated 
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if (GENERIC_RANGH_NUM >= EXCESS) 

{ 

MATCH = 1; 

GENERIC _RANGE_NUM = 
GENERIC_RANGE_NUM - EXCESS; 
EXCESS = 0; 



else 

{ 

EXCESS = EXCESS - GENERIC_RANGE_NUM; 
GENERIC_RANGE_NUM = 0; 

1 



if ( (GENERIC_DISCRETE_NUM > 0) && 
(EXCESS > 0) ) 



// reduce number of generics that 

// can now be instantiated 

if (GENERIC_DISCRETE_NUM >= EXCESS) 

{ 

MATCH = 1; 

GENERIC J)ISCRETE_NUM = 
GENERIC_DISCRETE_NUM - EXCESS; 
EXCESS = 0; 



else 

{ 

EXCESS = EXCESS - GENERIC_DISCRETE_NUM; 
GENERIC_DISCRETE_NUM = 0; 

) 



if ( (EXCESS <= G EN ERIC_PRI V ATE_NU M ) && 
(EXCESS > 0) ) 



// reduce number of generics that 
// can now be instantiated 
MATCH = 1; 

GENERIC_PRIVATE_NUM = 
GENERIC_PRIVATE_NUM - EXCESS; 
EXCESS = 0; 

) 



if (MATCH = 1) 

( 

// need to "instantiate" the software base 
// signature with the matched query parameter 
// to use for later type closeness calculations 
SB_SIG[INDEX] = SB_SIG[INDEX] + 1; 
ADD_rNSTANTIATION_TO_SIGNATURE(INDEX, SB_S1G); 
INDEX = INDEX + 1; 

} 
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break; 



case INTEGER: 

if (GENERIC_DISCRETE_NUM > 0) 

{ 

// reduce number of generics that 

// can now be instantiated 

if (GENERIC_DISCRETE_NUM >= EXCESS) 

{ 

MATCH = 1; 

GENERIC_DISCRETE_NUM = 
GENERIC_DISCRETE_NUM - EXCESS; 
EXCESS = 0; 



else 

{ 

EXCESS = EXCESS - GENERIC_DISCRETE_NUM; 
G EN ERI C_DI S C R ETE_NU M = 0; 

} 



if ( (EXCESS <= GENERIC_PRIVATE_NUM) && 
(EXCESS > 0) ) 

{ 

// reduce number of generics that 
// can now be instantiated 
MATCH = 1; 

G ENERIC_PRI V ATE_NUM = 
GENERIC_PRIVATE_NUM - EXCESS; 
EXCESS = 0; 



if (MATCH == 1) 

{ 

// need to "instantiate” the software base 
// signature with the matched query parameter 
// to use for later type closeness calculations 
SB_SIG[INDEX] = SB_SIG [INDEX] + 1; 

ADD_IN ST ANTIATION_TO_SIGN ATU RE<TNDEX, SB^SIG); 
INDEX = INDEX +1; 

} 



break; 



case BOOLEAN: 

if (GENERIC_DISCRETE_NUM > 0) 

{ 

// reduce number of generics that 
// can now be instantiated 
if (GENERIC JDISCRETE.NUM >= EXCESS) 
{ 

MATCH = 1; 
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GENERIC_DISCRETE_NUM = 
GENERIC_DISCRETE_NUM - EXCESS; 
EXCESS = 0; 

) 



else 



EXCESS = EXCESS - GENERIC_DISCRETE_NUM; 
GENERIC_DISCRETE_NUM = 0; 

} 



if ( (EXCESS <= GENERIC_PRIVATE_NUM) && 
(EXCESS > 0) ) 



// reduce number of generics that 
//can now be instantiated 
MATCH = 1; 

GENERIC_PRIVATE_NUM = 
GENERIC_PRIVATE_NUM - EXCESS; 
EXCESS = 0; 

} 



if (MATCH = 1) 

{ 

// need to "instantiate" the software base 
// signature with the matched query parameter 
// to use for later type closeness calculations 
SB_SIG[INDEX] = SB_SIG[INDEX] + 1; 
ADD_INSTANTIATION_TO_SIGNATURE(INDEX, SB.SIG); 
INDEX = INDEX + 1; 

) 



break; 



case CHARACTER: 

if (GENERIC_DISCRETE_NUM > 0) 



// reduce number of generics that 

// can now F be instantiated 

if (GENERIC_DISCRETE_NUM >= EXCESS) 

{ 

MATCH = 1; 

GENERIC_DISCRETE_NUM = 
GENERIC_DISCRETE_NUM - EXCESS; 
EXCESS = 0; 



else 

{ 

EXCESS = EXCESS - GENERIC_D1SCRETE_NUM; 
GENERIC_D1SCRETE_NUM = 0; 

} 
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if ( (EXCESS <= GENERIC _PRIVATE_NUM) && 
(EXCESS > 0) ) 



// reduce number of generics that 
// can now be instantiated 
MATCH = 1; 

GENERIC J>RIVATE_NUM = 
GENERIC_PRIVATE_NUM - EXCESS; 
EXCESS = 0; 



if (MATCH = 1) 

{ 

// need to "instantiate" the software base 

// signature with the matched query parameter 

// to use for later type closeness calculations 

SB _SIG [INDEX] = SB_SIG[INDEX] + 1; 

ADD_mSTANTIATION_TO_SIGNATURE(INDEX,SB_SIG); 

INDEX = INDEX + 1; 

} 



break; 



case ENUMERATION: 

if (GENERIC_DISCRETE_NUM > 0) 



// reduce number of generics that 

// can now be instantiated 

if (GENERIC JDISCRETE_NUM >= EXCESS) 

{ 

MATCH = 1; 

GENERIC_DISCRETE_NUM = 

GENERI C_DI S CRETE_NU M - EXCESS; 
EXCESS = 0; 



else 

( 

EXCESS = EXCESS - GENERIC_DISCRETE_NUM; 
GENERIC_DISCRETE_NUM = 0; 

) 



if ( (EXCESS <= GENERIC_PRI V ATE_NUM) && 
(EXCESS > 0) ) 

{ 

// reduce number of generics that 
// can now be instantiated 
MATCH = 1; 

GENERIC_PRIVATE_NUM = 

G ENERIC_PRI V ATE_NUM - EXCESS; 
EXCESS = 0; 

) 
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if (MATCH = 1) 

{ 

// need to "instantiate" the software base 
// signature with the matched query parameter 
// to use for later type closeness calculations 
SB_SIG [INDEX] = SB_SIG[INDEX] + 1; 
ADD_INSTANTIATION_TO_SIGN ATURE(IND EX, SB.SIG); 
INDEX = INDEX + 1; 

} 



break; 

case DISCRETE: 

if (GENERIC_RANGE_NUM > 0) 

{ 

// reduce number of generics that 

// can now be instantiated 

if (GENERIC JIANGE.NUM >= EXCESS) 

{ 

MATCH = 1; 

GENERIC_RANGE_NUM = 
GENERIC_RANGE_NUM - EXCESS; 
EXCESS = 0; 



else 



EXCESS = EXCESS - GENERIC_RANGE_NUM; 
GENERIC_RANGE_NUM = 0; 

} 



if ( (GENERIC_DISCRETE_NUM > 0) && 
(EXCESS > 0) ) 

{ 

// reduce number of generics that 
// can now be instantiated 

if (GENER1C_DISCRETE_NUM >= EXCESS) 

I 

MATCH = 1; 

GENERIC_DISCRETE_NUM = 
GENERIC_DISCRETE_NUM - EXCESS; 
EXCESS = 0; 



else 



EXCESS = EXCESS - GENERIC_DISCRETE_NUM; 
GENERIC_DISCRETE_NUM = 0; 

) 



if ( (EXCESS <= GENERIC _PRIVATE_NUM) && 
(EXCESS > 0) ) 

I 
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// reduce number of generics that 
//can now be instantiated 
MATCH = 1; 

GENERIC_PRIVATE_NUM = 
GENERIC_PRIVATE_NUM - EXCESS; 
EXCESS = 0; 



if (MATCH = 1) 

{ 

// need to ’’instantiate” the software base 
// signature with the matched query parameter 
// to use for later type closeness calculations 
SB_SIG [INDEX] = SB_SIG[INDEX] + 1; 

AD D_IN ST ANTIATION_TO_S IG N ATU RE(LN D EX , SB_SIG); 
INDEX = INDEX + 1; 

} 



break; 



case ACCESS: 

if (GENERIC, ACCESS.NUM > 0) 

{ 

// reduce number of generics that 

// can now be instantiated 

if (GENERIC,ACCESS_NUM >= EXCESS) 

{ 

MATCH = 1; 

GENERIC_ACCESS_NUM = 
GENERIC_ACCESS_NUM - EXCESS; 
EXCESS = 0; 



else 

{ 

EXCESS = EXCESS - GENERIC_ACCESS_NUM; 
GENERIC_ACCESS_NUM = 0; 

} 



if ( (EXCESS <= GENERIC,PRI VATE_NUM) && 
(EXCESS > 0) ) 



// reduce number of generics that 
// can now be instantiated 
MATCH = 1; 

GENERIC_PRIVATE_NUM = 
GENERIC_PRIVATE_NUM - EXCESS; 
EXCESS = 0; 

} 



if (MATCH = 1) 

{ 

// need to ’’instantiate” the sofn\'are base 
// signature with the matched query parameter 



303 



// to use for later type closeness calculations 
SB_SIG[INDEX] = SB_SIG[INDEX] + 1; 
ADDJNSTANTIATIONjrO_SIGNATURE(INDEX, SB_SIG); 
INDEX = INDEX + 1; 
j 



break; 



case RECORD: 

if ( (EXCESS <= GENERIC_PRIVATE_NUM) && 
(EXCESS > 0) ) 



// reduce number of generics that 
// can now be instantiated 
MATCH = 1; 

GENERIC_PRIVATE_NUM = 
GENERIC_PRI V ATE_NUM - EXCESS; 
EXCESS = 0; 

} 



if (MATCH = 1) 

{ 

// need to "instantiate” the software base 
// signature with the matched query parameter 
// to use for later type closeness calculations 
SB_SIG[INDEX] = SB_SIG[INDEX] + 1; 

ADD_IN ST ANTIATION_TO_SIGN ATURE(INDEX , SB.SIG); 
INDEX = INDEX + 1 ; 

) 

break; 

case PRIVATE: 

if (GENERIC_PRIVATE_NUM > 0) 

( 

// reduce number of generics that 

// can now be instantiated 

if (GENERIC.PRI VATE.NUM >= EXCESS) 

{ 

MATCH = 1; 

GENERIC_PRIVATE_NUM = 
GENERIC_PRIVATE_NUM * EXCESS; 

EXCESS = 0; 



else 

{ 

EXCESS = EXCESS - GENERIC_PRFVATE_NUM; 
GENERIC_PRIVATE_NUM = 0; 

j 

i 

if (MATCH =1) 

( 

// need to "instantiate" the software base 
// signature with the matched query parameter 
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// to use for later type closeness calculations 
SB_SIG[INDEX] = SB_SIG[INDEX] + 1; 
ADD_INSTANTIATION_TO_SIGNATURE(INDEX, SB_SIG); 
INDEX = INDEX + 1; 
i 



break; 

case STRING: 

if (GENERIC_ARRAY_NUM > 0) 

{ 

// reduce number of generics that 

//can now be instantiated 

if (GENERIC_ARRAY_NUM >= EXCESS) 

{ 

MATCH = 1; 

GENERIC_ARRAY_NUM = 
GENERIC_ARRAY_NUM - EXCESS; 
EXCESS = 0; 



else 

{ 

EXCESS = EXCESS - GENERIC_ARRAY_NUM; 
GENERIC_ARRA Y_NU M = 0; 

} 



if ( (EXCESS <= GENERIC_PRIVATE_NUM) && 
(EXCESS > 0) ) 

{ 

// reduce number of generics that 
// can now be instantiated 
MATCH = 1; 

G EN E R1 C_PRI V ATE_NU M = 
GENERIC_PRIVATE_NUM - EXCESS; 
EXCESS = 0; 



if (MATCH = 1) 

{ 

// need to ’’instantiate” the software base 
// signature with the matched query parameter 
// to use for later type closeness calculations 
SB_SIG[INDEX] = SB_SIG[INDEX] + 1; 

ADD_IN ST ANTIATION_TO_SIGN ATURE(INDEX , SB^SIG); 
INDEX = INDEX + 1; 

} 



break; 
case ARRAY: 

if (GENERIC_ARRAY_NUM > 0) 

{ 

// reduce number of generics that 
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// can now be instantiated 
if (GENERJC_ARRAY_NUM >= EXCESS) 

< 

MATCH = 1; 

GENERIC_ARRAY_NUM = 
GENERIC_ARRAY_NUM - EXCESS; 
EXCESS = 0; 



else 

{ 

EXCESS = EXCESS - GENERIC_ARRAY_NUM; 
GENERIC_ARRAY_NUM = 0; 

} 



if ( (EXCESS <= GENERIC _PRIVATE_NUM) && 
(EXCESS > 0) ) 

l 

// reduce number of generics that 
// can now be instantiated 
MATCH = 1; 

GENERIC_PRIVATE_NUM = 
GENERIC_PRIVATE_NUM - EXCESS; 
EXCESS = 0; 



if (MATCH = 1) 

{ 

// need to "instantiate" the software base 
// signature with the matched query parameter 
// to use for later type closeness calculations 
SB_SIG [INDEX] = SB_SIG[INDEX] + 1; 
ADD_INSTANTIATION_TOJSIGNATURE(INDEX, SB_SIG); 
INDEX = INDEX + 1; 

} 



break; 



case FIXED: 

if (GENERIC J)ELTA_NUM > 0) 

{ 

// reduce number of generics that 

// can now be instantiated 

if (GENERIC_DELTA_NUM >= EXCESS) 

{ 

MATCH = 1; 

GENERIC JDELTA_NUM = 

GENERIC JDELTA.NUM - EXCESS; 
EXCESS = 0; 



else 

( 

EXCESS = EXCESS - GENERIC_DELTA_NUM; 
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G ENERIC_D ELT A_NUM = 0, 




if ( (EXCESS <= GENERIC_PRIVATE_NUM) && 
(EXCESS > 0) ) 



// reduce number of generics that 
// can now be instantiated 
MATCH = 1; 

GENERIC_PRIVATE_NUM = 

GENERIC J^RIVATE.NUM - EXCESS; 
EXCESS = 0; 

} 



if (MATCH = 1) 

{ 

// need to "instantiate” the software base 
// signature with the matched query parameter 
// to use for later type closeness calculations 
SB_SIG[INDEX] = SB_SIG[INDEX] + 1; 

ADDJN ST ANTI ATTON_TO_S IGN ATURE(INDEX, SB_SIG); 
INDEX = INDEX + 1; 

} 



break; 



case DELTA: 

if (GENERIC_DELTA_NUM > 0) 

< 

// reduce number of generics that 

// can now be instantiated 

if (GENERIC_DELTA_NUM >= EXCESS) 

1 

MATCH = 1; 

GENERIC_DELTA_NUM = 
GENERIC_DELTA_NUM - EXCESS; 
EXCESS = 0; 



else 



EXCESS = EXCESS - GENERIC _DELTA_NUM; 
G ENERIC_D ELT A_NUM = 0; 

} 



if ( (EXCESS <= GEN ERIC__PRI V ATE_NUM ) && 
(EXCESS > 0) ) 

( 

// reduce number of generics that 
// can now be instantiated 
MATCH = 1; 

GENERIC_PRIVATE_NUM = 
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GENERIC J>RIVATE_NUM - EXCESS; 
EXCESS = 0; 



if (MATCH = 1) 

{ 

// need to “instantiate" the software base 
// signature with the matched query parameter 
// to use for later type closeness calculations 
SB_SIG[INDEX] = SB_SIG[INDEX] + 1; 

ADDJN ST ANTI ATION_TO_SIGN ATU RE(INDEX , SB_SIG); 
INDEX = INDEX + 1; 

) 



break; 



case FLOAT: 

if (GENERIC_DIGITS_NUM > 0) 

{ 

// reduce number of generics that 

// can now be instantiated 

if (GENERIC_DIGITS_NUM >= EXCESS) 

{ 

MATCH = 1; 

GENERIC_DIGITS_NUM = 

GENERIC _DIGITS_NUM - EXCESS; 
EXCESS = 0; 



else 

{ 

EXCESS = EXCESS - GENERIC_DIGITS_NUM; 
GENERIC_DIGITS_NUM = 0; 

} 



if ( (EXCESS <= GENERIC J>RIVATE_NUM) && 
(EXCESS > 0) ) 



// reduce number of generics that 
// can now be instantiated 
MATCH = 1; 

GENERIC_PRIVATE_NUM = 
GENERIC_PRIVATE_NUM - EXCESS; 
EXCESS = 0; 

} 



if (MATCH — 1) 

{ 

// need to "instantiate" the software base 
// signature with the matched query parameter 
// to use for later type closeness calculations 
SB_SIG[INDEX] = SB_SIG[INDEX] + 1; 

ADD _IN ST ANTIATION_TO_SIGN ATURE(INDEX , SB_SIG); 
INDEX = INDEX + 1; 
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break; 



case DIGITS: 

if (GENERIC _DIGITS_NUM > 0) 

{ 

// reduce number of generics that 

//can now be instantiated 

if (GENERIC_DIGITS_NUM >= EXCESS) 



MATCH = 1; 

GENERIC J)IGITS_NUM = 
GENERIC_DIGITS_NUM - EXCESS; 
EXCESS = 0; 



else 

{ 

EXCESS = EXCESS - GENERIC_DIGITS_NUM; 
GENERIC_DIGITS_NUM = 0; 

} 



if ( (EXCESS <= GENERIC_PRIVATE_NUM) && 
(EXCESS > 0) ) 



// reduce number of generics that 
// can now be instantiated 
MATCH = 1; 

GENERIC J>RIVATE_NUM = 
GENERIC_PRIVATE_NUM - EXCESS; 
EXCESS = 0; 

} 



if (MATCH = 1) 

{ 

// need to "instantiate” the software base 
// signature with the matched query parameter 
// to use for later type closeness calculations 
SB_SIG[INDEX] = SB_SIG|TNDEX] + 1; 
ADD_INSTANTIATION_TO_SIGNATURE(INDEX, SB_SIG); 
INDEX = INDEX + 1 ; 

} 



break; 



default: 

printf("** Error in SIGNATURE: :MATCH_OUTPUlLSIGNATURES()\n"); 
break; 

} 

i 
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} 

return MATCH; 

} 



/* This function is only necessary for input signatures. It also 
calculates input signature closeness degree as a by product. It 
is necessary to calculate the closeness degree in this manner 
when the number of input parameters in the query component are not 
equal to the number of input parameters in the software base 
component (which could occur with ADT aggregate input signatures). 
This function returns the value of the closeness degree if a valid 
match was found, or a -1 if a False Match was found. */ 
int SIGNATURE::CHECK_FALSE_MATCH (int Q_SIG[], int SB_SIG[]) 
{ 

int REGION, CLOSENESS, NOT_DONE, INDEX, MATCH; 
int Lv_Q_SIG[ ALL_REGIONS] , Lv_SB_SIG[ALL_REGIONS]; 

/* Copy contents of query and software base signature arrays into 
local variable (Lv) arrays. */ 
for (INDEX = 0; INDEX < ALL.REGIONS; ++INDEX) 

{ 

Lv_Q_SIG[INDEX] = Q_SIG[INDEX]; 

Lv_SB_SIG[INDEX] = SB_SIG[INDEX]; 

} 

MATCH = 0; 

CLOSENESS = 0; 

/* Loop through the leaf nodes. Once all a node's children are 
processed, it becomes a leaf node. That is why we can loop 
from Regions 1 (0) through Region 18 (17). The order ensures 
we are always at a leaf node. */ 
for (INDEX = 0; INDEX < INPUT.REGIONS; ++INDEX) 

{ 



// The while loop continues as long as the leaf region has 

// type instances. 

while (Lv_Q_SIG[INDEX] > 0) 

{ 

REGION = INDEX; 

NOT_DONE = 1; 

/* There are four cases that can change the status of the 

NOTJDONE boolean variable: 

case 1 - The parent node of the current query node has zero 
type instances. 

case 2 - The current query node’s parent has fewer type 
instances then the current query node. 

case 3 - The current query node is at the top of the Ada subtype 
hierarchy (i.e., generic Private) 

case 4 - The software base current node has zero type instances 
and the current query node has one or more type 
instances (FALSE MATCH).*/ 
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while (NOT_DONE) 



{ 

/* Put Case 3 first to "short circuit" the other cases from 
being evaluated if Region =17. */ 
if ( (REGION == GENERIC_PRIVATE) II // Case 3 

(Lv_Q_SIG[PARENT(REGION)] = 0) II // Case 1 

(Lv_Q_SIG[PARENT(REGION)] < Lv_Q_SIG[ REGION]) II // Case 2 
((Lv_SB_SIG [REGION] = 0) && (Lv_Q_SIG[ REGION] > 0)) ) 

// Case 4 

if ((Lv_SB_SIG[REGION] = 0) && (Lv_Q_SIG[REGION] > 0)) // Case 4 
{ // We have a False Match ... No further processing needed. 

MATCH = -l; 
return MATCH; 

} 

else 

{ /* We have completed the trace of a single query component 
input parameter and it has a valid matching parameter 
in the software base component. */ 

NOT.DONE = 0; 

/* We have found the node that represents the type of 
the query component input parameter. Remove a type 
instance from this node and all descendants. */ 

Lv_Q_SIG[REGION] 

REMO VE_A_TYPE_FROM_ALL_DESCEND ANTS (REGION, Lv_Q_SIG); 



} 

else // continue up the Ada subhierarchy 

( 

// Remove a type instance from the query region. 

// Lv_Q_SIG [REGION] 

// move up to the parent region 
REGION = PARENT(REGION); 

} 

} //end while NOT.DONE 

/* Proceed up the Ada subtype hierarchy in the software base 
component. We stop if Cases 1 - 3 described above are 
encountered. Each move up the hierarchy corresponds to 
a difference of 1 degree of closeness between the query 
component and software base component parameters. */ 
NOT_DONE = 1; 
while (NOT.DONE) 

( 



/* Put Case 3 first to "short circuit" the other cases from 
being evaluated if Region = 17. */ 
if ( (REGION = GENERIC.PRIVATE) II // Case 3 

(Lv_SB_SIG[PARENT(REGION)] = 0) II // Case 1 

(Lv_SB_SIG[PARENT(REGION)] < Lv_SB_SIG[REGION]) ) // Case 2 

{ 

// Halt the upward trace. 

NOTJDONE = 0; 

/* We have found the node that represents the type of 
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the software base input parameter matched to the query 
component input parameter. Remove a type instance from 
this node and all descendants. */ 

Lv.SB.SIG [REGION] 

REMOVE. A_TYPE_FROM_ALL_DESCENDANTS(REGION,Lv_SB_SIG); 



else // continue up the Ada subhierarchy 

{ 

// add last upward move to closeness degree 
CLOSENESS = CLOSENESS + 1; 

// move up to the parent region 
REGION = PARENT(REGION); 

} 

} // end while NOT.DONE 



// Return the value of the degree of closeness which, since it must 
// be 0 or greater implies that a False Match was not found. 
MATCH = CLOSENESS; 
return MATCH; 



/* Calculates the output signature closeness degree. */ 
int SIGNATURE: :CALC_OUT_CLOSE_DEG REE (int Q.SIGQ, int SB.SIGf]) 
{ 



int REGION, CLOSENESS, NOT.DONE, INDEX; 

int Lv_Q_SIG [ ALL.REGION S ] , Lv_SB_SIG[ALL_REGIONS]; 

/* Copy contents of query and software base signature arrays into 
local variable (Lv) arrays. */ 
for (INDEX = 0; INDEX < ALL.REGIONS; ++INDEX) 

{ 

Lv_Q_SIG[INDEX] = Q_SIG[INDEX]; 

Lv_SB_SIG[INDEX] = SB_SIG[INDEX]; 

) 

CLOSENESS = 0; 

/* Loop through the leaf nodes. Once all a node's children are 
processed, it becomes a leaf node. That is why we can loop 
from Regions 1 (0) through Region 17 (16). The order ensures 
we are always at a leaf node. */ 
for (INDEX = 0; INDEX < OUTPUT.REGIONS; ++INDEX) 

{ 
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// The while loop continues as long as the leaf region has type 
// instances. 

while (Lv_Q_SIG [INDEX] > 0) 

{ 

REGION = INDEX; 

/* Remove a type instance from this Region (query only) and all 
ancestor Regions in both the query and software 
base component. */ 

Lv_Q_SIG[REGION] 

REMO VE_A_TYPE_FROM_ALL_ ANCESTORS (REGION, Lv_Q_SIG, Lv_SB_SIG); 



/* We must now continue down through the Ada subtype hierarchy 
with the software base component. Since there are multiple 
downward paths (a node can have more than 1 child) we must 
choose the shortest possible path. */ 

NOT_DONE = 1; 

/* There are two cases that can change the status of the 
NOT_DONE boolean variable: 

case 1 - The current software base node is a leaf node, 
case 2 - The current software base node has more type 

instances than the total number of type instances 
in its children. This means we have found the 
closest possible matching output parameter. 

However, because we couldn't have reached a leaf node 
unless it had one or more type instances, and because it then 
follows that the number of type instances in a leaf node is 
greater than the number of type instances of its children 
(which must be zero), we only need to apply Case 2 as a test. */ 
while (NOT.DONE) 

{ 

if ( Lv_SB_SIG[REGION] > 

SUM_OF_CHILDREN_TYPES(REGION, Lv_SB_SIG) ) // Case 2 



{ 

/* We have completed the trace of a single software base 
component output parameter that matches the parameter 
in the query component. */ 

NOT_DONE = 0; 

// Remove a type instance from the current region. 
Lv_SB_SIG[REGION] ~; 

} 

else // continue down the Ada subhierarchy 

{ 

// Remove a type instance from the current region. 

Lv_SBJSIG [REGION] 

// add last upward move to closeness degree 
CLOSENESS = CLOSENESS + 1; 

// move down to the best child region 

REGION = BEST_CHILD(REGION, Lv_SB_SI G); 

} 

} // end while NOT_DONE 
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// Return the value of the degree of closeness, 
return CLOSENESS; 



APPENDIX F - MODIFICATIONS TO ORIGINAL 
CAPS SOFTWARE BASE C++ SOURCE CODE 



The files listed below contain the C++ source code written by John McDowell in 
which the more extensive modifications were made to extend the CAPS software base 
capabilities. 



filename: sbacl.cxx 

/* Original software for CAPS software base developed by 
John Kelly McDowell. 



Modified *31 August 1993 by Scott Dolgoff 
Because modifications were fairly extensive in this module, 
refer to McDowell's thesis to see what the original code 
looked like. Essentially, his by_num_generics dictionary has 
been removed from the complex data hierarchy. In its place are 
two new dictionaries; input_signature and output_signature. 

I have put my variables in UPPER CASE to help differentiate. */ 

// ADDED 

// note: ADT_Signature.h includes sball.hxx, sbextem.h and Signature.h 
#include "ADT_Signature.h M 
#include <Set.h> 

// #include <Primitives.h> 



SB_ADT JZOMPONENT_LIB RARY : : SB_ADT_COMPONENT_LIB RAR Y ( APL *theAPL) : 
Object(theAPL) 

{ 

1 : 



SB_ADT_COMPONENT_LffiRARY::SB_ADT_COMPONENT_UBRARY() : Object() 

I 

SB_COMPONENT_DICTIONARY *new_adt_component_dictionary= 
new SB_COMPONENT_DICTIONARY(); 

the_adt_component_dictionary= 

new_adt__component__dictionary->findTRef(); 

Dictionary *new_main_library=new Dictionary(OC_integer, 

OC_dictionary, 

TRUE, 

FALSE); 

the_m ain__library =n e w_m ain_l ibr ary -> f indTRef ( ) ; 
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); 



void SB_ADT_COMPONENT_LIBRARY::Destroy(Boolean aborted) 

{ 

adt_component_dictionary()->Destroy(aborted); 

// now must iterate through the multi-attribute tree of 
// dictionaries to destroy each one of them 

Dictionary *by_num_adts; 

Dictionary *by_num_operators; 

Dictionary *by_num_total_inputs; 

Dictionary *by_num__generics; 

Dictionary *by_num_total_outputs; 

Dictionary *leaf_dictionary; 

by_num_adts=m ain_library (); 

Dictionarylterator next_by_num_adt(by_num__adts); 

while(next_by_num_adt.moreData()) 

( 

by_num_operators=( Dictionary *)(Entity *)next_by_num_adt(); 

// components must have at least as many operators as the query 
Dictionarylterator next_by_num_operators(by_num_operators); 

while(next_by_num_operators.moreData()) 

{ 

by_num_generics=(Dictionary *)(Entity *) 
next_by_num_operators(); 

Dictionarylterator next_by_num_generics(by_num_generics); 

while(nextJ>y_num__generics.moreData()) 

{ 



by_num_total_outputs=(Dictionary *)(Entity *) 
next_by_num_generics(); 



Dictionarylterator 

next_by_num_total_outputs(by_num_total_outputs); 



while(next_by_num_total_outputs.moreData()) 

{ 



by_num_total_inputs=(Dictionary *)(Entity *) 
next_by_num_total_outputs(); 

Dictionarylterator 

next_by_num_total_inputs(by_num_totaLinputs); 

while(next_by_num_total_inputs.moreData()) 

{ 
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leaf_dictionary=(Dictionary *)(Entity *) 
next_by_num_total_inputs(); 

leaf_dictionary->Destroy(aborted); 

}; 

by_num_total_inputs->Destroy(aborted); 

}; ’ 

by_num_total_outputs->Destroy(aborted); 

}; 

by_nu m_£en erics ->Des troy ( aborted); 

}; 

by_num_adts->Destroy(aborted); 

}; " 

delete the_adt_component_dictionary; 
delete the_main_library; 

Object::Destroy(aborted); 



void SB_ADT_COMPONENT_LIBRARY::deleteObject(Boolean deallocate) 

{ 

adt_component_dictionary()->deleteObject(deallocate); 

// now must iterate through the multi-attribute tree of 
// dictionaries to destroy each one of them 

Dictionary *by_num_adts; 

Dictionary *by_num_operators; 

Dictionary *by_num_total_inputs; 

Dictionary *by_num_generics; 

Dictionary *by_num_total_outputs; 

Dictionary *leaf_dictionary; 

by_num_adts=m ain_library (); 

Die t ion ary I ter at or n ex t_by_n u m_ad t ( by_n um _adt s ) ; 

while(next_by_num_adt.moreData()) 

{ 

by_num_operators=(Dictionary *)(Entity *)next_by_num_adt(); 

// components must have at least as many operators as the query 

Dictionarylterator next_by_num_operators(by_num_operators); 

while(next_by_num_operators.moreData()) 

{ 

by_num_generics=(Dictionary *)(Entity *) 
next_by_num_operators(); 

Dictionarylterator next_by_num_£enerics(by_num_generics); 



317 



while(next_by_num_generics.moreData()) 

{ 



by_num_total_outputs=(Dictionary *)(Entity *) 
next_by_num_generics(); 



Di ction ary I ter ator 

next_by_num_total_outputs(by_num_total_outputs); 



while(next_by_num_total_outputs.moreData()) 

{ 



by_num_total_inputs=(Dictionary *)(Entity *) 
next_by_num_total_outputs(); 

Dictionarylterator 

next_by_num_total_mputs(by_num_total_inputs); 

while(next_by_num_total_inputs.moreData()) 

{ 

leaf_dictionary=(Dictionary *)(Entity *) 
next_by_num_total_inputs(); 

leaf_dictionary->deleteObject(FALSE); 



}; 

by_num_total_inputs->deleteObject(FALSE); 
}; " 

by_num_total_outputs->deleteObject(FALSE); 



}; 

by_num_generics->deleteObject(FALSE); 

}; 

by_num_adts->deleteObject(FALSE); 

); 



Object::deleteObject(deallocate); 



void SB_ADT_COMPONENT_LIBRARY::putObject(Boolean deallocate) 

{ 

adt_component_dictionary()->Dictionary::putObject(deallocate); 

main_library()->putObject(deallocate); 

Object: :putObject(deallocate); 



Type *SB_ADT_COMPONENT_LIBRARY ::getDirectType() 

{ 

return SB_ADT_COMPONENT_LIBRARY_OTvpe; 

}; 



SB_COMPONENT_DICTIONARY *SB_ADT_COMPONENT_LIBRARY::adt_component_dictionar>'() 
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{ 

return (SB_COMPONENT_DlCTIONARY *)(Entity *) 
the_adt_component_dictionary->Binding(); 

); 



Dictionary * SB_ ADT_COMPONENT_LIB RAR Y : : m ain_library () 

{ 

return (Dictionary *)(Entity *)the_mainJibrary->B inding(); 

}; 



// ADDED sig_file as a parameter to "add" function 

Boolean SB_ADT_COMPONENT__LTBRARY::add(SB_ADT_COMPONENT *new_component, 

char *SIG_FILE) 



Boolean retum_flag=TRUE; 



//ADDED 

Boolean NEW_INPUT_SIGNATURE_ ARRAY = FALSE; 
Boolean NEW_OUTPUT_SIGNATURE_ ARRAY = FALSE; 
Dictionary *BY_INPUT_SIGNATURE_DICTIONARY; 
Dictionary *BY_OUTPUT_SIGNATURE_DICTTONARY; 



Dictionary *by_num_adts; 

Dictionary *by_num_operators; 

Dictionary *by_num_total_inputs; 

Dictionary *by_num_total_outputs; 

Dictionary *leaf_dictionary; 

adt_component_dictionary()->add(new_component); 

adt_component_dictionary()->Dictionary::putObject(); 

// insert into the component dictionary was successfull 
// so insert it into the library 

// get the dictionary for the number of adt's 

by_num_adts=main_library(); 

// now find the dictionary for adt_operators 

if(by_num_adts->islndex(new_component->num_adts())) 

{ 

by_num_operators=(Dictionary *)(Entity *)(*by_num_adts) 
[new_component->num_adts()]; 



else 



by_num_operators=new Dictionary(OC_integer, 

OC_dictionary* 

TRUE, 

FALSE); 



by_num_adts->Insert(new_component-> 
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num_adts(), 

by_num_operators); 



); 

// have correct by_num_operator dictionary so get the 
// total number of inputs dictionary 

if(by_num_operators->isIndex(new_component-> 

n um_adt_operators())) 

{ 

by_num_total_inputs=(Dictionary *)(Entity *) 

( * by _n u m_oper ator s ) 

[ new_component-> 
num_adt_operators()] ; 



else 

( 



by_num_total_inputs=new Dictionary(OC_integer, 

OC_dictionary, 

TRUE, 

FALSE); 



by_num_operators->Insert(new_component-> 

num_adt_operators(), 

by_num_total_inputs); 



); 



// got the total number of inputs dictionary so now get the total 
// number of outputs dictionary 



if(by_num_total_inputs-> 

isIndex(new_component->total_inputs())==TRUE) 

( 

by_num_total_outputs=(Dictionary *)(Entity *) 
(*by_num_total_inputs) 
[new_component->total_inputs()]; 



else 

{ 

by_num_total_outputs=new Dictionary(OC_integer, 

OC_dictionary, 

TRUE, 

FALSE); 



by_num_total_inputs->Insert(new_component-> 

total_inputs(), 

by_num_total_outputs); 



); 
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// got the total number of outputs dictionary so now get the 
// INPUT SIGNATURE dictionary 



if(by_n um_total_ou tpu ts -> 
isIndex(new_component->total_outputs())==TRUE) 



B Y_INPUT_SIGN ATU REJECTION ARY =(Diction ary *)(Entity *) 
(*by_num_total_outputs) 

[new_component->total_putputs()]; 

} 

else 



{ 

B Y_INPUT_SIGN ATURE_DICTION ARY =new Dictionary(OC_array, 

OC_dictionary, 

FALSE, 

FALSE); 



by_num_total_outputs->Insert(new_component-> 

total_outputs(), 

BY_INPUT_SIGNATURE_DICTIONARY); 



}; 



// Have correct dictionary for the component's total ADT operator outputs. 
// Now get correct INPUT_SIGNATURE dictionary'. 



// first get the SIGNATURE value from SIG_FTLE 
ifstream SIGNATURE(SIG_FILE); 
int REGION, REGION_VALUE; 

Array *INPUT_SIGNATURE_ARRAY = new Array (OC_integer, ALL_REGIONS, 1); 

for (REGION=l; REGION <= ALL_R£GIONS; ++REGION) 

{ 

SIGNATURE » REGION_VALUE; 

INPUT_SIGNATURE_ARRA Y ->setElement(REGION, REGION. VALUE); 

) 

// Can’t use islndex to see if the new signature is already an 
// index in the dictionary because each index is an object 
// with a unique id. Therefore, must iterate through indices 
// and see if one isSimilar (i.e. of equal value) to the 
// INPUT_SIGNATURE_ARRAY. 

Array *FOUND_INDEX_ARRA Y ; 
int NOT_DONE = 1; 
int INDEX_FOUND = 0; 

Diction arylterator NEXT_INPUT_SIGNATURE = 

DictionaryIterato r (BYJNPUT_SIGNATURE_DICTIONARY,TRUE); 
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while( NEXT_INPUT_SIGNATURE.moreData() && NOT.DONE ) 

{ 

FOUND_INDEX_ARRAY = (Array *)(Entity *) 

NEXT_INPUT_SIGNATURE(); 

// compare the two signature arrays 

if (FOUND_INDEX_ARRA Y ->isSimilar(INPUT_SIGNATURE_ARRA Y)) 

{ 

NOT_DONE = 0; 

INDEX_FOUND= 1; 



} 

if(INDEX_FOUND) 

{ 



BY_OUTPUT_SIGNATURE_DICTIONARY=(Dictionary *)(Entity *) 

(*BYJNPUT_SIGNATUREJ)ICTIONARY) [FOUND JNDEX.ARRAY]; 



} 

else 

{ 



BY_OUTPUT_SIGNATURE_DICTIONARY=new Dictionaiy(OC_array, 

OC_dictionary, 

FALSE, 

FALSE); 



NEW_INPUT_SIGNATURE_ARRAY = TRUE; 

B Y_INP UT_S IGN ATU RE_DI CTION ARY - >In sert(INPUT_S I GN ATU RE_ ARRAY , 

BY_OUTPUT_SIGNATURE_DICTIONARY); 



}; 



// Have correct dictionary for the component's INPUT SIGNATURE. 
//Now get correct OUTPUT_SIGNATURE dictionary. 



// first get OUTPUT.SIGNATURE from SIG.FILE 

Array *OUTPUT_SIGNATURE_ ARRAY = new Array (OCJnteger, ALL.REGIONS, 1); 

for (REGION=l; REGION <= ALL_REGIONS; ++REGION) 

{ 

SIGNATURE » REGION_VALUE; 

OUTPUT_SIGNATURE_ARRAY->setElement(REGION, REGION.VALUE); 

} 



//////////////// 

// Can’t use islndex to see if the new signature is already an 
// index in the dictionary because each index is an object 
// with a unique id. Therefore, must iterate through indices 
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// and see if one isSimilar (i.e. of equal value) to the 
// OUTPUT_SIGNATURE_ ARRAY. 

NOT_DONE= 1; 

INDEX.FOUND = 0; 

Dictionarylterator NEXT_OUTPUT_SIGN ATURE = 

DictionaryIterator(B Y_OUTPUT_SIGN ATURE_DICTION ARY, TRUE); 

while( NEXT_OUTPUT_SIGNATURE.moreData() && NOT_DONE ) 

{ 

FOUND_INDEX_ARRAY = (Array *)(Entity *) 

NEXT_OUTPUT_SIGNATURE(); 

// compare the two signature arrays 

if (FOUND_INDEX_ARRAY->isSimilar(OUTPUT_SIGNATURE_ ARRAY)) 

{ 

NOT.DONE = 0; 

INDEX_FOUND = 1; 

}; 

} 

if(INDEX_FOUND) 

{ 

leaf_dictionary=(Dictionary *)(Entity *) 

(*BY_OUTPUT_SIGNATURE_DICTIONARY) [FOUND JNDEX_ARRAY]; 



else 



leaf_dictionary=new Dictionary (OC_string, 

SB_COMPONENT_OType, 

FALSE, 

FALSE); 

NEW_0 UTPUT_SIGN ATURE_ ARRAY = TRUE; 

BY_OUTPUT_SIGNATUREJXCTIONARY->Insert(OUTPUT_SIGNATURE_ARRAY, 

leaf_dictionary); 



// have the leaf dictionary so now insert the component into it 
leaf_dictionary->Insert(new_component->component_name(), 

new_component); 



by_num_adts->putObject(); 
by_num_operators->putObject(); 
by_num_total_inputs->putObject(); 
by_num_total_outputs->putObject(); 
leaf_dictionary->pu tObject() ; ; 
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B Y_INPUT_S IGN ATU RE_DICTION ARY ->putObject () ; 

B Y_OUTPUT_SIGNATURE_DICTIONARY ->putObject(); 
if (NEW_INPUT_SIGNATURE_ARRAY) 
INPUT_SIGNATURE_ARRAY->putObject(); 
if (NEW_OUTPUT_SIGNATURE_ARRAY) 
OUTPUT_SIGNATURE_ ARRAY ->putObject(); 



return retum_flag; 

); 



void SB_ADT_COMPONENT_LIBRARY::delete_component(SB_ADT_COMPONENT *the_component) 
( 



Dictionary *by_num_adts; 
Dictionary *by_num_operators; 
Dictionary *by_num_total_inputs; 
Dictionary *by_num_generics; 
Dictionary *by_num_total_outputs; 
Dictionary *leaf_dictionary; 



adt_component_dictionary()->Remove(the_component->component_name()); 

adt_component_dictionary()->Dictionary::putObject(); 



by_num_adts=m ain Jibrary(); 

// now find the dictionary for adt_operators 

if(by_num_adts->isIndex(the_component->num_adts())) 

( 

by_num_operators=(Dictionary *)(Entity *)(*by_num_adts) 
[the__component->num_adts()]; 

// have correct by_num_operator dictionary so get the 
// generic types diet. 

if(by_num_operators->isIndex(the_component-> 

num_adt_operators())) 

{ 

by_num_generics=(Dictionary *)(Entity *) 

(* by_num_operators) 

[ the_component-> 
num_adt_operators()] ; 

// got the generics dictionary so get the total base 
// types dictionary 

if(t>y_num_generics->isIndex(the_component-> 

num_generic_types())==TRU E) 

{ 

by_num_total_outputs=(Dictionary *)(Entity *) 
(*by_num_generics) 
[the_component->num_generic_types()]; 
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if(by_num_total_outputs-> 

isIndex(the_component->total_outputs())==TRUE) 

{ 

by_num_total_inputs=(Dictionary *)(Entity *) 

( * by _nu m_total_ou tpu ts) 

[the_component->total_outputs()]; 



if(by__num_total_inputs-> 

isIndex(the_component->total_inputs())==TRUE) 

{ 

leaf_dictionary=(Dictionary *)(Entity *) 

(*by_num_total_inputs) 

[the_component->total_inputs()]; 

// have to leaf dictionary 

leaf_dictionary->Remove(the_component->component_name()); 

leaf_dictionary->putObject(); 

if(leaf_dictionary->Cardinality()==0) 

{ 

by_n u m_total_inp uts -> 

Remove(the_component->total_inputs()); 

by_num_total_inputs->putObject(); 

leaf_dictionary->deleteObject(TRUE); 

if(by_num_total_inputs->Cardinality()==0) 

{ 

by_num_total_outputs-> 

Remove(the_component->total_oiJtputs()); 

by_num_total_outputs->putObject(); 

by_num_total_inputs->deleteObject(TRUE); 

if(by_num_total_outputs->Caidinality()==0) 

{ 

by_num_generics-> 

Remove(the_component->nurn_generic_types()); 

by_num_generics->putObject(); 

by_num_total_outputs->deleteObject(TRUE); 

if(hy_num_generics->CardLnality()==0) 

{ 

by _n u m_oper ators -> 

Remove(the_component->num_adt_operators()); 

by_num_operators->putObject(); 

by_num_generics->deleteObject(); 

if (by.nu m .operators ->C ardin ality ()==0) 

{ 

by_num_adts-> 

Remove(the.component->num_adts()); 

by_nurn_adts->putObject(); 

by_num_operators->deleteObject(); 

}; 
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}; 

); 

SB_COMPONENT_MATCHES_DICTIONARY *SB_ADT_COMPONENTJLIBRARY::query( 



SB_ADT_COMPONENT *query_component) 



Dictionary *by_num_adts; 

Dictionary *by_num_operators; 

Dictionary *by_num_total_inputs; 

Dictionary *by_num_total_outputs; 

Dictionary *leaf_dictionary; 

//ADDED 

Dictionary * B Y_INPUT_S IGN ATU RE_DICTION ARY; 
Dictionary *B Y_OUTPUT_SIGNATURE_DICTION ARY ; 



// ADDED — class SIGNATURE comes from Signature.h 
SIGNATURE SIG; 

//class ADT_SIGNATURE comes from ADT_Signature.h 

ADT_SIGNATURE ADT.SIG; 

int QUERY_EN_SIG[ALL_REGIONS]; 

int QUERYJ3UT_SIG[ALL_REGI0NS]; 

int SB_IN_SIG [ ALL_REGIONS] ; 

int SB_OUT_SIG[AUL_REGIONS]; 

int REGION; 

int MATCH; 



//MODIFIED 

SB_COMPONENT_MATCHES_DICTIONARY *query_result = new 
SB_COMPONENT_MATCHES_DICTIONARY(); 

//ADDED 

SB_COMPONENT_DICTIONARY *intermediate_query_result = new 
SB_COMPONENT_DICTIONARY(); 
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//ADDED 

// Get the signatures from the query component. 
SIG.GETJSIGNATURES(QUERYJN_SIG, QUERY_OUT_SIG); 

// in order for a match library must have at least as many adts as 
// being requested 

by_num_adts=rnain_library(); 

Die t ion ary I ter at or n ex t_by_n u m _ad t ( by_n u m_ad ts , 

FALSE, 

query_component->num_adts()); 

while(next_by_num_adt.moreData()) 

( 

by_num_operators=(Dictionary *)(Entity *)next_by_num_adt(); 

// components must have at least as many operators as the query 
Diction aryl terator n ex t_by_n um_operators(by_n um_operators, 

FALSE, 

query _component->num_adt_operators()); 

while(next_by_num_operators.moreData()) 

{ 

by_num_total_inputs=(Dictionaiy *)(Entity *) 
next_by_num_operators(); 



Diet ion ary Iterator n ext_by_n um_total_inpu ts( by_n um_total_inputs , 

FALSE, 

query _component->total_inputs()); 

while(next_by_num_total_inputs.moreData()) 

{ 

by_num_total_outputs = 

(Dictionary *)(Entity *)next_by_num_total_inputs(); 

// Got the corresponding output dictionary so now go through 
// and get the INPUT SIGNATURES that are in dictionaries with 
// number of total output parameters greater than or equal 
// to the query component. 

Dictionaryl terator NEXTJNPUT.SIGNATUREJDICTIONARY = 

D ic tion ary I ter ator ( by_n u m_to tal_ou tpu ts , 

FALSE, 

query _component-> 
total_outputs()); 



while(NEXT_INPUT_SIGNATURE_DICTIONARY.moreData()) 

B Y_INP UT_SIGN ATU RE_D ICTION ARY = (Dictionary *)(Entity *) 
NEXT_INPUT_SIGNATURE_DICTIONARY(); 

// Got an Input Signature dictionary. 
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// got an INPUT SIGNATURE dictionary so iterate over it 

// for the OUTPUT SIGNATURE dictionaries. The dictionary indices 

// (Array objects corresponding to Input Signatures) are returned. 

// Only those output dictionaries will be examined where the 
//INPUT SIGNATURE of the stored component matches the INPUT 
// SIGNATURE of the query component. 

Dictionarylterator N EXT_IN PUT_SI GN ATU RE = 

DictionaryIterator(B Y_INPUT_SIGNATURE_DICTIONARY, TRUE); 

// Create a temporary set to store all matched signatures in 
// for that particular INPUT SIGNATURE dictionary. 

// Loop through all of the INPUT SIGNATURES for that dictionary. 

Set * MATC H ED_ENPUT_SIGN ATURES ; 

MATCH ED_INPUT_SIGN ATU RES = new Set(OC_array); 

while(NEXT_INPUT_SIGNATURE.moreData()) 

{ 

Array *INPUT_SIGNATURE = (Array *)(Entity *) 

NEXT_INPUT_SIGNATURE(); 

// Load the Array object into a C++ array. 

for (REGION=l; REGION <=ALL_REGIONS; ++REGION) 

{ 

// Note: C++ array goes from 0 .. ALL_REGIONS -1 
SB_IN_SIG [REGION - 1] = 

*( (Integer *) (Entity *) (*INPUT_SIGNATURE) [REGION]); 

} 

// Check to see if we have matching input signatures. 

MATCH = SIG.MATCH JNPUT_SIGNATURES(QUERY_IN_SIG, SBJN.SIG); 
if (MATCH = 1) 

{ 

// Check for False Match. 

// If MATCH >= 0 then we have a valid match and the 
// value of MATCH is the type closeness degree. 

MATCH = SIG.CHECK_FALSE_MATCH(QUERY_IN_SIG, SB_IN_SIG); 
if (MATCH >= 0) 

{ 

// Add the software base component signature to the 
// set of matched signatures. 

MATCHED JNPUT_SIGNATURES->Insert(INPUT_SIGNATURE); 



}; 

}; 

}; // end iterate through Input Signatures 



// Now, go through the set of matched signatures, and check 
// the corresponding OUTPUT SIGNATURE dictionaries. 
Setlterator NEXT_OUTPUT_SIGNATURE_DICTTONARY = 
SetIterator(MATCHEDJNPUT_SIGNATURES); 
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while (NEXT_OUTPUT_SIGNATURE_DICTIONARY.moreData()) 



{ 

Array * SIGN ATOREJDIC HON ARYJNDEX = (Array *) (Entity *) 

NEXTJDUTPUTJSIGNATUREJDICTION ARY (); 

B Y_OUTPUT_SIGN ATURE_DICTION ARY = (Dictionary *) (Entity *) 
(*BY_INPUT_SIGNATURE_DICT10NARY) 
[SIGNATURE_DICTIONARY_INDEX]; 



// Got an Output Signature dictionary. 

// Create a temporary set to store all matched signatures in for 
// the specific OUTPUT SIGNATURE dictionary. 

// Loop through all of the OUTPUT SIGNATURES in that dictionary. 

Set *M ATCHED_OUTPUT_SIGN ATURES ; 
MATCHED_OUTPUT_SIGNATURES = new Set(OC_array); 

// Only those output dictionaries will be examined where the 
// OUTPUT SIGNATURE of the stored component matches the 
// OUTPUT SIGNATURE of the query component 
Dictionarylterator NEXT_OUTPUT_SIGNATURE = 

Dictionary Iterator(BY_OUTPUT_SIGNATURE_DICTION ARY, TRUE); 

while(NEXT_OUTPUT_SIGNATURE.moreData()) 

{ 

Array *OUTPUT_SIGNATURE = (Array *)(Entity *) 

NEXT_OU TPUT_S IGN ATURE( ) ; 

// Load the Array object into a C++ array. 

for (REGIONS; REGION <= ALL_REGIONS ; ++REGION) 

// Note: C++ array goes from 0 .. ALL_REGIONS - 1 
SB_OUT_SIG[REGION - 1] = *( (Integer *) (Entity *) 
(*OUTPUT_SIGNATURE) [REGION] ); 

// Check to see if we have matching OUTPUT signatures. 

MATCH = SIG.MATCH_OUTPUT_SIGNATURES( 

QUERY_OUT_SIG, SB_OUT_SIG); 

if (MATCH = 1) 

{ 



// Add the software base component signature to the 
// set of matched signatures. 

MATCHED JDUTPUT_SIGNATURESo>Insert(OUTPUT_SIGNATURE); 



}; 

} // end iterate through OUTPUT Signatures 



// Now, go through the set of matched signatures, and get 
// the corresponding leaf dictionaries. 

Setlterator next_leafs_dict = 

SetIterator(MATCHED_OUTPUT_SIGNATURES); 

while (next_leafs_dict.moreData()) 

{ 
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Array *SIGNATURE_DICT_INDEX = (Array *) (Entity *) 

next_leafs_dict(); 

leaf_dictionary = (Dictionary *) (Entity *) 

(*B Y_OUTPUT__SIGNATURE_DICTIONARY) [SIGNATUREJDICTJNDEX] ; 

// Got the corresponding leaf dictionary so now go through 
// and get the components that are in the dictionary. 

Dictionarylterator next_component= 

DictionaryIterator(leaf_dictionary); 

while(next_component.moreData()) 

{ 

SB_ADT_COMPONENT *the_component= 

(SB_ADT_COMPONENT *)(Entity *)next_component(); 

// currently always true 

if(query_component->filter(the_component)=TRUE) 

I 

// put the components in the intermediate 
// query result dictionary 

intermediate_query_result->add(the_component); 

}; 

); 

); 



); 

}; 

// Verify that the components match. So far we have only matched 
// aggregate signatures. We now need to ensure that we can map 
// individual query component ADT operators to matching software 
// base component ADT operators. 

// Create an array that holds the input and output signature of 
// each query ADT operator. Note: it must be dynamic since we 
// don't know its size until runtime. 

SIGNATURES *QUERY_SIGNATURE; 

QUERY.SIGNATURE = new 

SIGNATURES(query_component->num_adt_operators()]; 

// Create array to hold the number of input and output parameters of 
// the query component's ADT operators. 

PARAMETERS *QUERY_OPERATOR_IO; 

QUERY_OPERATOR_IO = new 

PARAMETERS [query _component->num_adt_operators()]; 

// load query ADT operator signatures 

ADT_SIG.LOAD_ADT_OPERATOR_SIGNATURES (QUERYJSIGNATURE, 
QUERY_OPERATOR_IO, query ^.component); 

// iterate through the dictionary of components that matched on the 
// basis of aggregate input and output signatures 



330 



Dictionarylterator next_component = intermediate_query_result->iterator(); 

while ( next_component.moreData() ) 

{ 

SB_ADT_COMPONENT *the_component = 

(SB_ADT_COMPONENT *) (Entity *) next_component(); 

// Create an array of linked lists. Each array cell corresponds to 
// a query component ADT operator. Each linked list is made up of 
// all software base component ADT operators that match the query 
// component ADT operator. Note - it must be dynamic because we 
// don't know its size until runtime. 

LINK *QUERY_OPERATORS; 

QUERYJ3PERATORS = new 

LINK [ query _co mpon en t-> n u m_ad t_operators ()] ; 

//initialize all lists to null 
int INDEX; 

for (INDEX = 0; INDEX <query_component->num_adt_operators(); ++INDEX) 
QUERY_OPERATORS [INDEX] = NULL; 

ADT_SIG .B UILD_OPERATOR_MATCH_LIST (QUERY_SIGNATURE, QUER YJDPERATORS , 
QUERY_OPERATOR_IO, 

query _component, the_component); 

// find a valid mapping of query operators to sofware base component 
// operators 

MATCH = ADT_SIG.ADTMATCH( QUERYJDPERATORS, query.component, 

the_component); 



if (MATCH == 1) 

{ 

// match was found. Store next_component in query _result dictionary. 
// Use its number of ADTs and ADT operators (Vs the number for the 
// query component) to order it in the dictionary. Because the 
// match found may actually be desired (semantics) or optimal, 

// signature type closeness is not used when ordering matched 
// ADT components. 

// put the components in the return result dictionary 

long TOTAL.CLOSENESS = 10000; 

TOTAL.CLOSENESS = TOTAL_CLO SENES S + 

( (the_component->num_adts() - 
query_component->num_adts()) * 1000) + 
(the_component->num_adt_operators() - 
query _component->num_adt_operators()); 

query_result->Insert(TOTAL_CLOSENESS, the_component); 

}; 



}; 

// add code here for semantic matching interface 
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return query_result; 

}; 



void SB_ADT_COMPONENT_UBRARY::list(ofstream& outstream) 

{ 

adt_component_dictionary()->printOn(outstream); 

}; 



***••***•*•***•****•***••***•••***•••**•••**•••***•••***••***•••**•••*••••***•••• 

********************************************************************************* 

********************************************************************************* 



filename: sbao.cxx 

//- 

// 

// J.K. MCDOWELL 23 AUG 91 

// 

// Modified by Scott Dolgoff - 29 July 1993 

// Additions are preceded by ”// ADDED". Modifications are 

// preceded by "// MODIFIED". 

If 

II- 

// MODIFIED 

//# include "sball.hxx" 

//# include "sbextem.h" 

//ADDED 

#include "ADT_Signature.h M 



SB_ADT_OPERATOR: : SB_ ADT_OPERATOR(APL *theAPL) : 
SB_OPERATOR(theAPL) 

( 

); 



SB_ADT_OPERATOR::SB_ADT_OPERATOR(char *id) : 
SB_OPERATOR(id) 

( 



// ADDED (all code in constructor) 

Array *new_input_signature=new Ajray(OC_Lnteger, ALL_REGIONS, 1); 
the_input_signature=new_input_signature->findTRef(); 



Array *new_output_signature=new Array(OC_integer, ALL_REGIONS, 1); 
the_output_signature=new_output_signature->fmdTRef(); 
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// ADDED - from the class ADT.SIGNATURE 

ADT.SIGNATURE ADT_SIG; 

int REGION; 

int REGION.VALUE; 

int IN_SIG[ALL.REGIONS]; 

int OUT_SIG[ALL_REGIONS]; 

ADT.SIG.GET.SIGNATURES.FROM.FILE (IN.SIG, OUT.SIG, id); 
//read in input signature 

for (REGION = 1; REGION <= ALL.REGIONS; ++ REGION) 

{ 

REGION_V ALUE = IN.SIG[REGION - 1]; 
input.signature()->setElement(REGION, REGION_VALUE); 

) 

//read in output signature 

for (REGION = 1; REGION <= ALL.REGIONS; ++REGION) 

{ 

REGION. VALUE = OUT.SIG[ REGION - 1]; 
output.signature()->setElement(REGION, REGION.VALUE); 

} 



void SB.ADT.OPERATOR:: Destroy (Boolean aborted) 

{ 

//ADDED 

input_signature()->Destroy(aborted); 

output_signature()o»Destroy(aborted); 

SB.OPERATOR: :Destroy( aborted); 

}; 

void SB.ADT.OPERATOR: :deleteObject(Boolean deallocate) 

{ 

//ADDED 

input.signature()->deleteObject(deallocate); 

output.signatxire()->deleteObject(deallocate); 

SB_OPERATOR::deleteObject(deallocate); 

}; 

void SB.ADT.OPERATOR: :putObject(Boolean deallocate) 

{ 

//ADDED 

input_signature()->putObject(deallocate); 

output.signature()->putObject(deallocate); 

SB_OPERATOR::putObject(deallocate); 

}; 

Type ’“SB.ADT.OPERATOR: :getDirectType() 

{ 

return SB.ADT.OPERATOR.OType; 
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}; 



//ADDED 

Array *SB_ADT_OPERATOR::input_signature() 

{ 

return (Array *)(Entity *)the_input_signature->Binding(); 

}; 



//ADDED 

Array * SB_ADT_OPERATOR : :output_signature() 

{ 

return (Array *)(Entity *)the_output_signature->B inding(); 

}; 



//ADDED 

Array *SB_ADT_OPERATOR: :get_input_signature() 

{ 

return input_signature(); 

}; 



//ADDED 

Array *SB_ADT_OPERATOR::get_output_signature() 

{ 

return output_signature(); 

}; 



Boolean SB_ADT_OPERATOR::process_type_info(SB_ADT_COMPONENT *adt) 

{ 

//process types by checking local generic then adt.adt usage then 
// adt. generic usage before making it unrecognized. This will update 
// the adt usage dictionaries as well 

// update all usage dictionaries for inputs and outputs 

II 

// first go through all of the inputs 

Dictionarylterator next_input=input_attributes()->id_iterator(); 
while(next_input.moreData()) 

{ 

SB_ID_DECL *this_decl=(SB_ID_DECL *)(Entity *)next_input(); 
SB_TYPE_NAME *this_type_name=this_decl->type_narne(); 

// first see if this id_decl type is a generic 
if(generic_usage()->update(this_type_name)==FALSE) 

{ 

// was not a generic type check the ADT generic list 

if(adt->generic_usage()->update(this_type_name)=FALSE) 

{ 

// was not an adt generic so check the adt list 
if(adt->adt_usage()->update(this_type_name)==FALSE) 

{ 

// was not an adt adt so put it in its local list 
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// based on whether or not it is recognized 
if(this_type_name->recognized()=FALSE) 

{ 

// was unrecognized so try to update 
// the unrecognized list or add it to 
// the list 

if(unrecognized_type_usage()-> 

update(this_type_name)=FALSE) 

{ 

// not yet in list so add it 
unrecognized_type_usage()-> 
add_type(this_type_name->id(), 
this_type_name); 

// now update it for being used once 
unrecognized_type_usage()-> 
update(this_type_name); 

}; 

} 

else 

{ 

// this type name is recognized so update 
//or add it 

if(recognized_type_usage()-> 

update(this_type_name)=FALSE) 

( 

// not yet in list so add it 
recognized_type_usage()-> 
add_type(this_type_name->id(), 
this_tvpe_name); 

// now update it for being used once 
recognized_type_usage()-> 
update(this_type_name); 

}; 

}; 



}; 



}; 



}; 

Diction arylterator next_output=output_attributes()->id_iterator(); 
while(next_output.moreData()) 

{ 

SB_ID_DECL *this_decl=(SB_ID_DECL *)(Entity *)next_output(); 
S B_TYPE_N AM E *this_type_name=this_decl->type_name(); 

// first see if this id_decl type is a generic 
if(generic_usage()->update(this_type_name)==FALSE) 

{ 



// was not a generic type check the ADT generic list 

if(adt->generic_usage()->update(this_type_name)=FALSE) 

{ 

// was not an adt generic so check the adt list 
if(adt->adt_usage()->update(this_type_name)==FALSE) 

{ 
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// was not an adt adt 

// so put it in its local list 

// based on whether or not it is recognized 

if(this_type_name->recognized()=FALSE) 

{ 

// was unrecognized so try to update 
// the unrecognized list or add it to 
// the list 

if(unrecognized_type_usage()-> 

update(this_type_name)=FALSE) 

{ 

// not yet in list so add it 
u nr ecog nized_type_u s age 0 -> 
add_type(this_type_name->id(), 
this_type_name); 

// now update it for being used once 
unrecognized_type_usage()-> 
update(this_type_name); 

); 



// now update the adt list as well 

if(adt->unrecognized_type_usage()-> 

update(this_type_name)=FALSE) 

{ 

// not yet in list so add it 
adt->unrecognized_type_usage()-> 
add_type(this_type_name->id(), 
this_type_name) ; 

// now update it for being used once 
adt->unrecognized_type_usage()-> 
update(this_type_name); 

}; 



} 

else 

{ 

// this type name is recognized so update 
// or add it 

if (recog nized_type_usage() -> 

update(this_type_name)=FALSE) 

{ 

// not yet in list so add it 
recog nized_type_usage()-> 
add_type(this_type_name->id(), 
this_type_name); 

// now update for being used onece 
recognized_type_usage()-> 
update(this_type_name); 

}; 

// now update the adt usage list 
if(adt->recognized_type_usage()-> 

update(this_type_name)=FALSE) 

{ 
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// not yet in list so add it 
adt->recognized_type_usage()-> 
add_type(this_type_name->id(), 
this_type_name); 

// now update for being used onece 
adt->recognized_type_usage()-> 
update(this_type_name) ; 

}; 



}; 



}; 

}; 

}; 

return TRUE; 



}; 



}; 



********************************************************************************* 

********************************************************************************* 

********************************************************************************* 



filename: sbcmd.cxx 

// Added to the CAPS software base classes (developed by 
// John Kelly McDowell in August, 1991) by Scott Dolgoff. 

// SB_COMPONENT_MATCHES_DICTTONARY is only used as a temporary 
// variable, so no puts, destroys or deletes are expected to 
// be used. 



# include "shall. hxx M 

# include "sbextem.h" 



SB_COMPONENT_MATCHES_DICTIONARY : : SB_COMPONENT_MATCHES_DICTIONARY (APL *theAPL) 

: Dictionary(theAPL) 

{ 

}; 



SB_COMPONENT_MATCHES_DICTIONARY::SB_COMPONENT_MATCHES_DICTIONARY() 

: Dictionary (OC_integer, // KEY 

SB_COMPONENT_OType f 

TRUE, 

TRUE) 

{ 

// Index values (keys) represent the closeness of the match with the 
// smaller index values representing the closest matches. 



}; 



Type *SB_COMPONENT_MATCHES_DICTIONARY::getDirectType() 

{ 
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return SB_COMPONENT_MATCHES_DICTIONARY_OType; 

}; 

void SB_COMPONENT_MATCHES_DICTIONARY::Destroy(Boolean aborted) 

{ 

// first destroy all of the references in the dictionary 

Diction aryl ter ator n ex t_compon en t(th i s ) ; 

while(next_component.moreData()) 

{ 

((SB_COMPONENT *)(Entity *)next_component())->Des troy (aborted); 

}; 

D ict ion ary : : De s troy (aborted) ; 

}; 

void SB_COMPONENT_MATCHES_DICTIONARY::deleteObject(Boolean deallocate) 

{ 

// first delete all of the references in the dictionary 

Dictionarylterator next_component(this); 

while(next_component.moreData()) 

{ 

((SB_COMPONENT *)(Entity *)next_component())->deleteObject(FALSE); 

}; 

Dictionary: :deleteObject(deallocate); 

); 

void SB_COMPONENT_MATCHES_DICTIONARY::putObject(Boolean deallocate) 

{ 

// first put all of the references in the dictionary 

Dictionarylterator next_component(this); 

while(next_component.moreData()) 

{ 

((SB_COMPONENT *)(Entity *)next_component())->putObject(deallocate); 

}; 

Dictionary: :putObject(deallocate); 



void SB_COMPONENT_MATCHES_DICTIONARY::printOn(ofstream& outstream) 

{ 

// Because the components are stored in the order of their closeness 
// value (closeness = input type closeness + output type closeness + 

// excess output parameters) they are automatically retrieved by 
// the iterator in the desired order from closest match to farthest. 

Dictionarylterator next_component= 
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Dictionarylterator(this); 

while(next_component.moreData()) 

{ 

int i; 

SB_COMPONENT 3(c the_component=(SB_COMPONENT *)(Entity *)next_component(); 
outstream « the_component->component_name(); 

for(i=strlen(the_component->component_name());i < DEFAULT_NAME_SIZE; i++) 

{ 

outstream « " 

}; 

outstream « " 

char *informal_desc=(the_component->informal_description())->text(); 
i=0; 

while(informal_desc[i]!=NULL && informal_desc[i]!=\n') 

i 

outstream « inform al_desc[i]; 
i++; 

}; 

outstream « "\n"; 

}; 



Dictionarylterator SB_COMPONENT_MATCHES_DICTIONARY::iterator() 

{ 

return Dictionarylterator(this); 

}; 



********************************************************************************* 
********************************************************************************* 
********* ************************************************************************* 



sbextern.h 



filename: 

//- 

II 
II 
II 
II 
II 
II 
II 

II- 

II 

// this File contains all of the external references to the 
// ontos type schemas 
// 



J. K. MCDOWELL 23 AUG 91 

Modified by Scott Dolgoff - 29 July 1993 
Additions are preceded by "// ADDED". Modifications are 
preceded by "// MODIFIED". 



extern Type * SB_LIB RAR Y_OType; 

extern Type * SB_ ADT_COMPONENT_LIB RAR Y_OType; 



339 



extern Type * SB_OPERATOR_COMPONENT_LIB RARY_OType; 

extern Type *SB_COMPONENT_OType; 

extern Type *SB_COMPONENT_DICTIONARY_OType; 

extern Type *SB_KEYWORD_DICTIONARY_OType; 

extern Type *SB_TEXT_OBJECT_OType; 

extern Type *SB_ADT_COMPONEOT_OType; 

extern Type *SB_OPERATOR_COMPONENT_OType; 

extern Type *SB_ADT_OPERATOR_OType; 

extern Type * S B_ID_DECL J3ICTI0NAR Y_OType; 

extern Type *SB_ID_DECL_OType; 

extern Type *SB_TYPE_NAME_OType; 

extern Type *SB_ADT_OPERATOR_DICTIONARY_OType; 

extern Type *SB.EXCEPTION_DICTIONARY_OType; 

extern Type *SB_TYPE_USAGE_OType; 

extern Type * SB_TYPE_US AGE_DICTION AR Y_OType; 

extern Type *SB_RECOGMZED_TYPES_OType; 

extern SB_LIBRARY *SB_MAIN_LIBRARY; 

// ADDED 

extern Type * SB_COMPONENT_M ATCHES_DICTION AR Y_OType; 

# define DEFAULT_NAME_SIZE 21 

#define SB_UNRECOGNIZED_TYPE 1 

#define SB_B ASE_TYPE 2 

#define SB_GENER1C_TYPE 3 

#define SB_GENERIC_SUBPROGRAM 4 

#defme SB_GENERIC_VALUE 5 

#define SB_AB STRACT_D ATA_TYPE 6 

#define SB_ARRAY 7 

#define S B_ARRA Y_INDEX 8 

#define SB_ARRAY_ELEMENT 9 

// ADDED 

#define ALL.REGIONS 24 
#define INPUT_REGIONS 18 
#define OUTPUT.REGIONS 17 

ll ADDED 

// set value for a null pointer 
#define NULL 0 



********************************************************************************* 

********************************************************************************* 
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********************************************************************************* 



filename: sbocl.cxx 

I* Original software for CAPS software base developed by 
John Kelly McDowell. 



Modified - 31 August 1993 by Scott Dolgoff 
Because modifications were fairly extensive in this module, 
refer to McDowell's thesis to see what the original code 
looked like. Essentially, his by_num_unrecognized_dictionary has 
been removed from the complex data hierarchy. In its place are 
two new dictionaries; input_sig nature and output_signature. 

I have put my variables in UPPER CASE to help differentiate. */ 



# include "sball.hxx" 

# include "sbextem.h" 

// ADDED 

#include "Signature.h" 
#include <Set.h> 
#include <Primitives.h> 



SB_OPERATOR_COMPONENT_UBRARY::SB_OPERATOR_COMPONENT_LIBRARY(APL *theAPL) : 
Object(theAPL) 

{ 

}; 



SB_OPERATOR_COM PONENT_LIB RAR Y : : SB_OPERATOR_COMPONENT_LIB RAR Y () : Objcct() 

{ 

SB_COMPONENT_DICTIONARY *new_operator_component_dictionary= 
new SB_COMPONENT_DICTIONARY(); 

t he_operator_com ponen t_d ic tion ary = 
new_operator_component_dictionary->findTRef(); 

Dictionary *new_state_dictionary=new Diction ary(OC_integer, 

OC_dictionary, 

TRUE, 

FALSE); 



the_state_dictionary=new_state_dictionary->findTRef(); 



Dictionary *new_non_state_dictionary=new Dictionary(OC_integer, 

OC_dictionary, 



TRUE, 

FALSE); 
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the_non_state_dictionary=new_non_state_dictionary->findTRef(); 



void SB_OPERATOR_COMPONENT_LIBRARY::DestroyCBoolean aborted) 

{ 

operator_component_dictionary()->Destroy(aborted); 

// now must iterate through the multi-attribute query 
// dictionary tree 

Dictionary *leaf_dictionary; 

Dictionary *by_num_inputs_dictionary; 

Dictionary *by_num_unrecognized_dictionary; 

Dictionary *by_num_outputs_dictionary; 

by_num_inputs_dictionary=state_dictionary(); 

Diction aryl ter ator next_input_dictionary= 
DictionaryIterator(by_num_inputs_dictionary); 

while(next_input_dictionary.moreData()) 

{ 

by_num_unrecognized_dictionary= 

(Dictionary *)(Entity *)next_input_dictionary(); 



Diction ary Iterator next_outputs_dict(by_num_unrecognized_dictionary); 

while(next_outputs_dict.moreData()) 

{ 

by_num_outputs_dictionary=(Dictionaiy *)(Entity *) 
next_outputs_dict(); 



Dictionarylterator next_leaf_dict(by_num_outputs_dictionary); 

while(next_leaf_dict.moreData()) 

{ 

leaf_dictionary=(Dictionary *)(Entity *) 
next_leaf_dict(); 

Dictionarylterator next_component(leaf_dictionary); 



while(next_component.moreData()) 

{ 

((SB_OPERATOR_COMPONENT *)(Entity *)next_component())-> 
Destroy(aborted); 

}; 

leaf_dictionary->Destroy( aborted); 

}; 

by_num_outputs_dictionary->Destroy(aborted); 

); 

by_num_unreeognized_dictionary->Destroy(aborted); 
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}; 

by_num_inputs_dictionary->Destroy(aborted); 



by_num_inputs_dictionary=non_state_dictionary(); 



next_input_dictionary= 

Dictionarylterator(by_num_inputs_dictionary); 

while(next_input_dictionary.moreData()) 

{ 

by_num_unrecognized_diction ary= 

(Dictionary *)(Entity *)next_input_dictionary(); 



Dictionarylterator next_outputs_dict(by_num_unrecognized_dictionary); 
while(next_outputs_dict.moreData()) 

( 

by_num_outputs_dictionary=(Dictionary *)(Entity *) 
nex t_ou tputs_dict() ; 



Dictionarylterator next_leaf_dict(by_num_outputs_dictionary); 

while(next_leaf_dict.moreData()) 

{ 

leaf_dictionary=(Dictionary *)(Entity *) 
next_leaf_dict(); 

Dictionarylterator next_component(leaf_dictionary); 



while(next_component.moreData()) 

{ 

((SB_OPERATOR_COMPONENT *)(Entity *)next_component())-> 
Destroy (aborted); 

); 

leaf_dictionary->Destroy(aborted); 

}; 

by_nu m_ou tpu ts_diction ary->Des troy ( aborted); 

); 

by_num_unrecognized_dictionary->Destroy(aborted); 

); 

by_num_inputs_dictionary->Destroy(aborted); 

delete the_operator_component_dictionary; 
delete the_state_dictionary; 
delete the_non_state_dictionary; 



void SB_OPERATOR_COMPONENT_LIBRARY::deleteObject(Boolean deallocate) 

< 

operator_component_dictionary()->deleteObject(deallocate); 
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Dictionary *leaf_dictionary; 

Dictionary *by_num_inputs_dictionary; 
Dictionary *by_num_unrecognized_dictionary; 
Dictionary *by_num_outputs_dictionary; 

by_nu m_inp uts_d ic tio n ary= state_dic tion ary ( ); 



Dictionarylterator next_input_dictionary(by_num_inputs_dictionary); 

while(next_input_dictionary.moreData()) 

{ 

by_num_unrecog nized_diction ary= 

(Dictionary *)(Entity *)next_input_dictionary(); 



Dictionarylterator next_outputs_dict(by_num_unrecognized_dictionary); 

while(next_outputs_dict.moreData()) 

{ 

by_num_outputs_dictionary=(Dictionary *)(Entity *) 
next_outputs_dict(); 



Dictionarylterator next_leaf_dict(by_num_outputs_dictionary); 

while(next_leaf_dicLmoreData()) 

{ 

leaf_dictionary=(Dictionary *)(Entity *) 
next_leaf_dict(); 

Dictionarylterator next_component(leaf_dictionary); 



while(next_component.moreData()) 

{ 

((SB_OPERATOR_COMPONENT *)(Entity *)next_component())-> 
deleteObject(FALSE); 

}; 

leaf_dictionary->deleteObject(FALSE); 

): 

by_num_outputs_dictionary->deleteObject(FALSE); 

}; 

by_nurn_unrecognized_dictionary~>deleteObject(FALSE); 

I; 

by_num_inputs_dictionary->deleteObject(FALSE); 



by_num_inputs_dic tion ary =non_state_dic tion ary (); 
next_input_dictionary= 

DictionaryIterator(by_num_inputs_dictionary); 

while(next_input_dictionary.moreData()) 
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( 

by_num_unrecog nized_dictionary= 

(Dictionary *)(Entity *)next_input_dictionary(); 



Diction arylterator next_outputs_dict(by_num_unrecognized_dictionary); 
while(next_outputs_dict.moreData()) 

{ 

by_num_outputs_dictionary=(Dictionary *) (Entity *) 
next_outputs_dict(); 



Dictionarylterator next_leaf_dict(by_num_outputs_dictionary); 

while(next_leaf_dict.moreData()) 

{ 

leaf_dictionary=(Dictionary *)(Entity *) 
next_leaf_dict(); 

Dictionarylterator next_component(leaf_dictionary); 



while(next_component.moreData()) 

{ 

((SB_OPERATOR_COMPONENT *)(Entity *)next_component())-> 
deleteObject(FALvSE); 

); 

leaf_dictionary->deleteObject(FALSE); 

}; 

by_num_outputs_dictionary->deleteObject(FALSE); 

}; 

by_num_unrecognized_dictionary->deleteObject(FALSE); 

}; 

by_num_inputs_dictionary->deleteObject(FALSE); 

Object: :deleteObject(deallocate); 



void SB_OPERATOR_COMPONENT_LIBRARY::putObject(Boolean deallocate) 

{ 

operator_component_dictionary()->putObject(deallocate); 

state_dictionary()->putObject(deallocate); 

non_state_dictionary()->putObject(deallocate); 

Object: :putObject(deallocate); 



}; 



Type *SB_OPERATOR_COMPONENT_UBRARY::getDirectType() 

{ 

return SB_OPERATOR_COMPONENT_LIB RAR Y_OType; 

}; 
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SB_COMPONHNT_DICTIONARY 

*SB_OPERATOR_COMPONENT_LIB RARY : : operator_component_dictionary () 

{ 

return (SB_COMPONENT_DICTIONARY *)(Entity *) 
the_operator_component_dictionary->Binding(); 

}; 

Dictionary *SB_OPERATOR_COMPONENT_LIBRARY::state_dictionary() 

{ 

return (Dictionary *)(Entity *)the_state_dictionary->Binding(); 

}; 

Dictionary *SB_OPERATOR_COMPONENT_LTB RARY : : non_state_dictionary () 

{ 

return (Dictionary *)(Entity *)the_non_state_dictionary->B indingO; 

}; 

// ADDED sig_file as a parameter to "add” function 

Boolean SB_OPERATOR_COMPONENT_LIBRARY::add(SB_OPERATOR_COMPONENT *new_component. 



Boolean retum_flag=TRUE; 

Dictionary *leaf_dictionary; 

Dictionary *by_num_inputs_dictionary; 

//ADDED 

Boolean NEW_INPUT_SIGNATURE_ ARRAY = FALSE; 
Boolean NE W_OUTPUT_SI GN ATURE_ ARRAY = FALSE; 
Dictionary *B Y_INPUT_S.IGNATURE_DICTIONARY ; 
Dictionary *BY_OUTPUT_SIGNATURE_DICTIONARY; 

// ADDED -- class SIGNATURE comes from Signature.h 
SIGNATURE SIG; 

Dictionary *by_num_outputs_dictionary; 

operator_component_dictionary()->add(new_component); 

operator_component_dictionary()->Dictionary::putObject(); 

// insert into the component dictionary was successful! 

// so insert it into the library 

if(new_component->states()==TRUE) 

( 

by_num_inputs_dictionary=state_dictionary(); 

) 

else 

< 

by_num_inputs_dictionary=non_state_dictionary(); 

}; 



// have correct state dictionary' so now find correct 
// input dictionary 
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if(by_num_inputs_dictionary->isIndex(new_component->num_inputs())==TRUE) 

{ 

by_num_outputs_dictionary=(Dictionary *) 

(Entity *)(*by_num_inputs_dictionary) 

[new_component->num_inputs()]; 



else 

{ 

by_num_outputs_dictionary=new Dictionary(OC_integer, 

OC.dictionary, 

TRUE, 

FALSE); 



by.num_inputs_dictionary->Insert(new_component-> 

num_inputs(), 

by_n u m_ou tpu ts_d ic tion ary ) ; 



// Have correct dictionary for the component's number of outputs. 

//Now get correct INPUT_SIGNATURE dictionary. 

tf(by_num_outputs_dictionary->isIndex(new_component->num_outputs())=TRUE) 

{ 

BY_INPUT_SIGNATURE_DICTIONARY=(Dictionary *) 

(Entity *)(*by_num_outputs_dictionary) 

[ ne w_com pon en t- >n u m_ou tp u ts () ] ; 



else 

{ 



BY_INPUT_SIGNATURE_DICTIONARY=new Dictionary(OC_array, 

OC.dictionary, 

FALSE, 

FALSE); 



by.num.ou tpu ts_d ictionary->I nsert (new_componen t -> 

num_outputs(), 

BY.INPUT.SIGNATURE.DICTIONARY); 



// first get the SIGNATURE value from SIG_FILE 
ifstream SIGNATURE(SIG.FILE); 
int REGION, REGION. VALUE; 

Array *INPUT_SIGNATURE_ ARRAY = new Anay (OC.integer, ALL.REGIONS, 1); 
for (REGION=l; REGION <= ALL.REGIONS; ++REGION) 
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{ 

SIGNATURE » REGION_ VALUE; 

1NPUT_SIGNATURE_ARRAY ->setElement(REGION, REGION^ VALUE); 

} 



// Can't use islndex to see if the new signature is already an 
// index in the dictionary because each index is an object 
// with a unique id. Therefore, must iterate through indices 
// and see if one isSimilar (i.e. of equal value) to the 
// INPUT_SIGNATURE_ ARRAY. 

Array *FOUND_INDEX_ARRAY ; 
int NOT_DONE= 1; 
int ESTDEX.FOUND = 0; 

Dictionarylterator NEXT_INPUT_SIGNATURE = 

DictionaryIterator(BY_INPUT_SIGNATURE_DICTIONARY ) TRUE); 

while( NEXT_INPUT_SIGNATURE.moreData() && NOT.DONE ) 

{ 

FOUND_INDEX_ARRAY = (Array *)(Entity *) 

NEXT_INPUT_SIGNATURE(); 



// compare the two signature arrays 

if (FOUND_INDEX_ARRA Y ->isSimilar(INPUT_SIGNATURE_ARRA Y)) 

( 

NOT_DONE = 0; 

INDEX_FOUND = 1; 

}: 

} 

iPINDEX.FOUND) 

{ 

BY_OUTPUT_SIGNATURE_DICTIONARY=(Dictionary *)(Entity *) 

(*BY_INPUT_SIGNATURE_DICTIONARY)[FOUND_INDEX_ARRA\n; 



} 

else 

{ 



BY_OUTPUT_SIGNATURE_DICTIONARY=new Dictionar> (OC_array, 

OC_dictionary, 

FALSE, 

FALSE); 



NE W_INPUT_SIGN ATURE_ARRA Y = TRUE; 

B Y_INPUT_SIGN ATU RE_DICT10N ARY ->In sert(INPUT_SIGN ATU RE_ARRA Y , 

B Y_OUTPUT_SIGN ATURE_DICTION AR Y); 



}; 



// get OUTPUT_SIGNATURE from SIG_FILE 
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Array *OUTPUT_SIGNATURE_ARRAY = new Array (OCJnteger, ALL_REGIONS, 1); 



for (REGI0N=1; REGION <= ALL_REGIONS; ++REGION) 

{ 

SIGNATURE » REGION.VALUE; 

OUTPUT_SIGNATURE_ARRAY->setElement(REGION, REGION, VALUE); 

} 



//////////////// 

// Can’t use islndex to see if the new signature is already an 
// index in the dictionary because each index is an object 
// with a unique id. Therefore, must iterate through indices 
// and see if one isSimilar (i.e. of equal value) to the 
// OUTPUT_SIGNATURE_ ARRAY. 

NOT.DONE = 1; 

INDEX_FOUND = 0; 

Dictionarylterator NEXT_OUTPUT_SIGNATURE = 

DictionaryIterator(BY_OUTPUT_SIGNATURE_DICTIONARY, TRUE); 

while( NEXT_OUTPUT_SIGNATURE.moreData() && NOT_DONE ) 

{ 

FOUND_INDEX_ARRAY = (Array *)(Entity *) 

NEXT_OUTPUT_SIGNATURE(); 



// compare the two signature arrays 

if (FOUND_INDEX_ARRAY->isSimilar(OUTPUT_SIGNATURE_ARRAY)) 

{ 

NOT_DONE = 0; 

INDEX.FOUND = 1; 




if(INDEX_FOUND) 

{ 



leaf_dictionary=(Dictionary *)(Entity *) 

(*BY_OUTPUT_SIGNATURE_DICTIONARY) [FOUND_INDEX_ARRAY]; 

} 

else 

{ 

leaf_dictionary=new Dictionary(OC_string, 

SB_COMPONENT_OType, 

FALSE, 

FALSE); 



NEW_OUTPUT_SIGNATURE_ARRAY = TRUE; 



B Y_OUTPUT_SIGN ATURE_DICTION ARY ->I nsert(OUTPUT_SIGN ATURE_ ARRAY , 

leaf_dictionary); 
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// have the leaf dictionary so now insert the component into it 
leaf_dictionary->Insert(new_component->component_name(), 

new_component); 



leaf_dictionary->putObject(); 
by_num_inputs_dictionary->putObject(); 
by_num_outputs_dictionary->putObject(); 
BY_INPUT_SIGNATURE_DICTIONARY->putObject(); 
BY_OUTPUT_SIGNATURE_DICTIONARY->putObject(); 
if (NEW_INPUT_SIGNATURE_ARRAY) 
INPUT_SIGNATURE_ARRAY->putObject(); 
if (NEW_OUTPUT_SIGNATURE_ARRAY) 
OUTPUT_SIGNATURE_ARRAY->putObject(); 

return retum_flag; 

}; 



void SB_OPERATOR_COMPONENT_LEBRAR Y : : 
delete_component(SB_OPERATOR_COMPONENT *the_component) 
{ 



Dictionary *leaf_dictionary; 

Dictionary *by_num_inputs_dictionary; 
Dictionary *by_num_unrecognized_dictionary; 
Dictionary *by_num_outputs_dictionary; 

operator_component_dictionary()-> 

Remove(the_component->component_name()); 

operator_component_dictionary()->putObject(); 



if(the_component->states()==TRUE) 

{ 

by_num_inputs_dictionary=state_dictionary(); 

» 

else 

l 

by_num_inputs_dictionary=non_state_dictionary(); 

}; 



// have correct state dictionary so now find correct 
// input dictionary 

if(by_num_inputs_dictionaiy->isIndex(the_component->num_inputs())==TRUE) 

{ 

by_num_unrecognized_dictionary=( Dictionary’ *) 

(Entity *)(*by_num_inpuLs_dictionary) 

[the_component->num_inputs()]; 
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// got the unrecognized dictionary 

// use num generics since for a library unit all unrecognized types 
// must be generics 

if(by_num_unrecognized_dictionary-> 

isIndex(the_component->num_generic_types())=TRUE) 

{ 



by_num_outputs_dictionary=(Dictionary *)(Entity *) 

( * by_num_u nrecog nized_diction ary) 

[ the_component->num_generic_types()] ; 

if(by_nu m_outputs_dictionary-> 

isIndex(the_component->num_outputs())==TRUE) 

{ 

leaf_dictionary=(Dictionary *)(Entity *) 

(*by_num_outputs_dictionary) 

[the_component->num_outputs()]; 

// have to leaf dictionary 

leaf_dictionaiy->Remove(the_component->component_name()); 

leaf_dictionary->putObject(); 

if ( leaf_dictionary -> C ard in al ity ( )==0) 

{ 

by_num_outputs_dictionary-> 

Remove(the_component->num_outputs()); 

by_num_outputs_dictionary->putObject(); 

if (by_num_ou tputs_dictionary->Cardin ality ()=0); 

{ 

by_num_unrecognized_dictionary-> 

Remove(the_component->num_generic_types()); 

by_num_unrecognized_dictionary->putObject(); 

if(by_num_umecognized_dictionary->Cardinality()=0) 

{ 

by_num_inputs_dictionary-> 

Remove(the_component->num_inputs()); 

by_num_inputs_dictionary->putObject(); 

by_num_unrecognized_dictionary->deleteObject(TRUE); 

}; 

by_num_outputs_dictionary->deleteObject(TRUE); 

}; 

leaf_d i c ti on ary -> del eteObj ec t( TRU E ) ; 



}; 



}; 



SB_COMPONENT_MATCHES_DICTIONARY *SB_OPERATOR_COMPONENT_LIBRARY: 
query (SB_OPERATOR_COMPONENT *query_component) 

{ 

//MODIFIED 
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SB_COMPONENT_MATCH ES_DICTION ARY *query_result = new 
SB_COMPONENT_MATCHES_DICTIONARY(); 

//ADDED 

// OC_array corresponds to a particular signature value. 

// OC_integer is type closeness value of that signature. 

Dictionary *INPUT_CLOSENESS_DICTIONARY = new Dictionary (OC_array, 

OC_integer, 

FALSE, 

FALSE); 



Dictionary *leaf_dictionary; 

Dictionary *by_num_inputs_dictionary; 

Dictionary *by_num_outputs_dictionary; 

//ADDED 

Dictionary *BY_INPUT_SIGNATURE_DICTIONARY; 
Dictionary *B Y_OUTPUT_SIGN ATURE_DICTION ARY; 



// ADDED -- class SIGNATURE comes from Signature.h 
SIGNATURE SIG; 

int QUERYJN_SIG[ALL_REGIONS]; 
int QUERY_OUT_SIG[ ALL_REGIONS] ; 
int SB_EN_SIG[ALL_REGIONS]; 
int SB_OUT_SIG[ALL_REGIONS]; 
int REGION; 
int MATCH; 



// Get the signatures from the query component. 

SIG.GET_SIGNATURES (QUERY_IN_SIG, QUERY_OUT_SIG); 

// get the correct state_dictionary to start the query 

if(query_component->states()=TRUE) 

{ 

by_num_inputs_dictionary=state_dictionary(); 

} 

else 

{ 

by_num_inputs_dictionary=non_state_dictionary(); 

); 

// have correct state dictionary so now find correct 
// input dictionary 

// inputs must match exactly so only get one dictionary 

tfX(ky_num_inputs_dictionary->isIndex(query_component->num_inputs()))=TRUE) 

{ 

by_num_outputs_dictionary = 

(Dictionary *)(Entity *)(*by_num_inputs_dictionary) 

[ query_compone nt-> num_inpu ts() ] ; 
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// Got the corresponding output dictionary so now go through and 
// get the INPUT SIGNATURES that are in dictionaries with 
// number of output parameters greater than or equal to the 
// query component. 



Diction aryl terator NEXTJNPUT.SIGNATURE DICTIONARY = 
D ic tionary I terator(by_n u m_o u tp u ts_d ic tion ary , 

FALSE, 

query_component-> 

num_outputs()); 



while(NEXT_INPUT_SIGNATURE_DICTIONARY.moreData()) 

{ 

BY_INPUT_SIGNATURE_DICTIONARY = (Dictionary *)(Entity *) 
NEXT_INPUT_SIGNATUREDICTIONAR Y (); 

// Got an Input Signature dictionary. 



// got an INPUT SIGNATURE dictionary so iterate over it for the 
// OUTPUT SIGNATURE DICTIONARIES. The dictionary indices which are 
// Array objects corresponding to Input Signatures are returned. 

// Only those OUTPUT SIGNATURE DICTIONARIES will be examined where 
// the INPUT SIGNATURE of the stored component matches the INPUT 
// SIGNATURE of the query component. 

Dictionarylterator NEXT_INPUT_SIGNATURE = 
DictionaryIterator(BY_INPUT_SIGNATURE_DICTIONARY,TRUE); 

// Create a temporary set to store all matched signatures in 
// for that particular INPUT SIGNATURE dictionary. 

// Loop through all of the INPUT SIGNATURES for that dictionary. 

Set *MATCHED_INPUT_SIGNATURES; 

MATCHED JNPUT_SIGNATURES = new Set(OC_array); 

wh il e (NEXTJNPUT_SIGN ATURE. moreData( )) 

{ 

Array *INPUT_SIGNATURE = (Array *)(Entity *) 

NEXTJNPUT_SIGNATURE(); 

// Load the Array object into a C++ array. 

for (REGION=l; REGION <=ALL_REGIONS ; ++REGION) 

{ 

// Note: C++ array goes from 0 .. ALL_REGIONS -1 
SB_IN_SIG[REGION - 1] = 

*( (Integer *) (Entity *) (*ENPUT_SIGNATURE) [REGION]); 

} 

// Check to see if we have matching input signatures. 

MATCH = SIG.MATCH_INPUT_SIGNATURES(QUERY_IN_SIG, SB_IN_SIG); 
if (MATCH == 1) 

{ 



// Check for False Match. 

//If MATCH >= 0 then we have a valid match and the 
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// value of MATCH is the type closeness degree. 

MATCH = SIG.CHECK_FALSE_MATCH(QUERY_IN_SIG > SB_IN_SIG); 
if (MATCH >= 0) 

{ 



// Add the software base component signature to the 
// set of matched signatures. 

MATCHED JNPUT_SIGNATURES->Insert(INPUT_SIGNATURE); 



// Add type closeness information 

INPUT_CLOSENESS_DICTIONARY->Insert(INPUT_SIGNATURE, 

MATCH); 



}; 



); // end iterate through Input Signatures 



// Now, go through the set of matched signatures, and check 
// the corresponding OUTPUT SIGNATURE dictionaries. 

Setlterator NEXT_OUTPUT_SIGNATURE_DICTIONARY = 
SetIterator(MATCHED_INPUT_SIGNATURES); 

while (NEXT_OUTPUT_SIGNATURE_DICTIONARY.moreData()) 

{ 

Array *SIGNATURE_DICTIONARY_INDEX = (Array *) (Entity *) 

NEXT_OUTPUTJSIGNATURE_DICTION AR Y (); 

BY_OUTPUT_SIGNATURE_DICTIONARY = (Dictionary *) (Entity *) 
(*BYJNPUT_SIGNATURE_DICTIONARY) [SIGNATURE.DICTIONARY.INDEX]; 



// Got an Output Signature dictionary. 

// Create a temporary set to store all matched signatures in for 
// the specific OUTPUT SIGNATURE dictionary. 

// Loop through all of the OUTPUT SIGNATURES in that dictionary. 

Set *MATCHED_OUTPUT_SIGNATURES; 
MATCHED_OUTPUT_SIGNATURES = new Set(OC_array); 

// Only those output dictionaries will be examined where the 
// OUTPUT SIGNATURE of the stored component matches the 
// OUTPUT SIGNATURE of the query component. 

Dictionarylterator NEXT_OUTPUT_SIGNATURE = 

DictionaryIterator(BY_OUTPUT_SIGNATURE_DICTIONARY, TRUE); 

//Temporary dictionary to store closeness information in. 

// OC_array corresponds to a particular signature value. 

// OC_integer is a combination of the type closeness value of 
// that signature and the number of output parameters that 
// software base component has in excess of the query component. 

Dictionary- *OUTPUT_CLOSENESS_DICTIONARY = 

new Dictionaiy(OC_array, 

OC_integer, 

FALSE, 

FALSE); 
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while(NEXT_OUTPUT_SIGNATURE.moreData()) 

{ 

Array *OUTPUT_SIGNATURE = (Array *)(Entity *) 

NEXT_OUTPUT_SIGNATURE(); 



// Load the Array object into a C++ array, 
for (REGIONS; REGION <=ALL_REGIONS; ++REGION) 
// Note: C++ array goes from 0 .. ALL_REGIONS - 1 
SB_OUT_SIG[REGION - 1] = *( (Integer *) (Entity *) 
(*OUTPUT_SIGNATURE) [REGION] ); 



// Check to see if we have matching OUTPUT signatures. 

MATCH = SIG.MATCH J3UTPUT_SIGNATURES( 

QUERY_OUT_SIG, SB_OUT_SIG); 

if (MATCH = 1) 

{ 



// Measure type closeness degree. 

MATCH = SIG.CALC_OUT_CLOSE_DEGREE 

(QUERY_OUT_SIG, SB_OUT_SIG); 



// Add the software base component signature to the 
// set of matched signatures. 

MATCHED J3UTPUT_SIGNATURES->Insert(OUTPUT_SIGNATURE); 
// Add closeness information 

OUTPUT_CLOSENESS_DICTIONARY->Insert(OUTPUT_SIGNATURE, 

MATCH); 



); 

} // end iterate through OUTPUT Signatures 



// Now, go through the set of matched signatures, and get 
// the corresponding leaf dictionaries. 

Setlterator next_leafs_dict = 
SetIterator(MATCHED_OUTPUT_SIGNATURES); 

while (next_leafs_dict.moreData()) 

{ 

Array *SIGNATURE_DICT_INDEX = (Array *) (Entity *) 

next_leafs_dict(); 



leaf_dictionary = (Dictionary *) (Entity *) 

(*BY_OUTPUT_SIGNATURE_DICTIONARY) [SIGNATURE.DICT.INDEX]; 

// Got the corresponding leaf dictionary so now go through 
// and get the components that are in the dictionary. 

Dictionarylterator next_component= 

DictionaryIterator(leaf_dictionary); 

while(next_component.moreData()) 

( 

SB_OPERATOR_COMPONENT *lhe_component= 
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(SB_OPERATOR_COMPONENT *)(Entity *)next_component(); 
// currently always true 

if(query_component->filter(the_component)==TRUE) 

{ 

//put the components in the 
// return result dictionary 

long TOTAL.CLOSENESS = 10000; 

TOTAL_CLOSENESS = TOTAL_CLO SENES S + 

( (the_component->num_outputs() - 

query_component->num_outputs()) * 1000) + 
INPUTJTLO SENES SJDICTIONARY-> 
getIntegerElement( 

SIGNATURE_DICTIONARY_ENDEX) + 
OUTPUT_CLO SENES S_DICTIONARY-> 
get!ntegerElement( 

SIGNATUREJ3ICT_INDEX); 



query _resu It- insert (TOTAL_CLOSENESS,the_component); 

); 



// add code to interface to semantic check routine here 
return query__result; 



}; 



void SB_OPERATOR_COMPONENT_LIBRARY::list(ofstream& outstream) 

{ 

operator_component_dictionary()->printOn(outstream); 

}; 
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APPENDIX G - MODIFICATIONS TO ORIGINAL 
CAPS GRAPHICAL USER INTERFACE TAE 

SOURCE CODE 



The TAE source code listed below contains Ada code for one new panel developed 
for this thesis (pan_mapping_s.a, pan_mapping_b.a) and all significant modifications to 
TAE source code originally revised by Dogan Ozdemir [Ozde92], 



— *** TAE Plus Code Generator version V5.1 

— *** File : g!obal_s.a 

~ *** Generated : May 21 16:12:31 1992 

— *** Revised by : Dogan Ozdemir 

__ ************************************************************************** 
„ * 

— * Global -- Package SPEC 

* 

__ ************************************************************************** 

with XJVindows; 

with Text JO; 

with TAE; 

with SYSTEM; 

use TARS YSTEM /Text JO; 

— ADDED 

with CREATE_OPERATOR_PARAMETER_FILES_PKG, PARAMETER JvlAPPIN G_PKG , 
PARAMETER_UST_PKG; 

use CREATE_OPERATOR_PARAMETER_FILES_PKG, PARAMETER JvlAPPINGJ^KG, 
PARAMETER JJ ST_PKG; 
with PSDLJDJ’KG; 
use PS DL_ID_PKG; 

package Global is 

~l PURPOSE: 

--I This package is automatically "with'ed in to e:ch panel package body. 

--I You can insert global variables here. 

-I 

-I REGENERATED: 

~l This file is generated only once. 



package Taefloat JO is new Text JO. Flo at JO (TAE.Taefloat); 
Default_DisplayJd : X_Windows.Display; 
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-ADDED 



- MODIFIED/ADDED 

library : String (L.10):= (’AVdVa'.others^y ’); 

COMPONENT_IS_OPERATOR : BOOLEAN; 

lib_to_delete : String (1..10):= (others=>’ ’); 
path : String(1..80):= (others=>’ ’); 

proto_j>refix : String(1..80):= (others=>' *); 

Query _psdl : String(1..80):= (others=>* ’); 

Directory : String(1..80):= (others=>‘ ’); 

kwquery_outfile : String(1..15):=”kwquery_outfxle H ; 

query _outfile : String(1..13):="query_outfile"; 

component : String(1..80):= (others=>* '); 

directory_array : String (1 ..27):= (others=>’ ’); 

directory_file_name: String(1..14) := "directory_file"; 

lib_vec : s_vector(1..20):= (others=> new STRING(L.IO)); 

file_vec : s_vector(1..200):= (others=> new STRING(1..80)); 

Is_a_directory : Boolean:=FALSE; 

Upper_directory : Boolean:=FALSE; 

Component_add : Boolean:=FALSE; 

Component_update : Boolean:=FALSE; 

Query : Boolean:=FALSE; 

current_directory : array(L.20) of String(1..80); 
directory _file : file_type; 

cur_dir_index : integer:=l; 
lib_count : integer:=0; 
num_of_comp : integer:=l; 



- MODIFIED 

com : constant String:= 

’7n/sun5 l/work/dolgoff/caps/src/software_base/sb 

parse : constant String:=7n/sun54/work/caps92/src/software_base/integrate/"; 

gui_directory : constant String :=7n/sun54/work/caps92/src/user_interface/sb_interface/" 



-ADDED 

OPERATOR_FILE_NAME : constant STRING := "operator_psdl_spec.txt"; 
TYPE_FILE_NAME : constant STRING := "type_psdl_spec.txt”; 
PROTOTYPE_FILE_NAME : constant STRING := "prototype_psdl_spec.txt"; 
com2 : constant String:= 

7n/sun5 l/work/dolgoff/caps/src/software_base/opsig 
com3 : constant String:= 

7n/sun5 l/work/dolgoff/caps/src/software_base/adtsig 
THE.STATUS : COMPONENT_STATUS; 

HAS_GEN ERICS : BOOLEAN; 

QCJN_P ARAMS , 

QC_OUT_P ARAMS , 

SB C_IN_P ARAMS , 

SBC_OUT_P ARAMS, 

GEN_P ARAMS : PARAMETERS; 

QC_IN_COUNT, 

QC_OUT_COUNT, 

SB C_IN_COUNT, 
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: INTEGER; 



SB C_OUT_CO UNT, 

GEN_COUNT 
SBC.NAME, 

QC_NAME : PSDLJD_PKG.PSDL_ID; 



Application_Done — Subprogram SPEC 



function Application_Done 
return Boolean; 

—I PURPOSE: 

—I This function returns true if a "quit" event handler has called 
--I Set_Application_Done, otherwise it returns false. 



Set_Application_Done — Subprogram SPEC 



procedure Set_Application_Done; 

-I PURPOSE: 

--I This procedure can be used by an event handler, typically a "quit" 
—I button, to signal the end of the application. 

-ADDED 



system_call - Subprogram SPEC 



procedure system_call(command : STRING); 



-I PURPOSE: 

—I This procedure is used to make unix system calls from within the program. 



strlen 



- Subprogram SPEC 



procedure strlen(s: in String; n: in out Integer); 

-I PURPOSE: 

—I This procedure is used to get the length of strings. 
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— Subprogram SPEC 



list_directory 



procedure list_diiectory(file :in out file_type; 

file_name:in out string; 
file_vec :in out s_vector, 
I :in out integer); 



-I PURPOSE: 

—I This procedure is used to obtain the contents of unix directory structures. 



— . list_components -- Subprogram SPEC 



procedure list_components(file :in out file_type; 

file_name:in out string; 
file_vec :in out s_vector; 
I :in out integer); 



-I PURPOSE: 

--I This procedure is used to read the component list from a text file and 
—I fill them into a s_vector structure to be displayed in a TAE panel. 



read_directory -- Subprogram SPEC 



procedure read_directory(file :in out file_type; 



file_name:in out string; 
dir_name :in out string); 



-I PURPOSE: 

—I This procedure is used to read the name of the current directory and 
—I to get the path from a text file. 



errorstring - Subprogram SPEC 



procedure errorstring(file :in out file_type; 



file_name:in out string; 
err_str :in out string); 



-I PURPOSE: 

—I This procedure is used to read the error message given by the software 
-I base program. 
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parse_line 



— Subprogram SPEC 



procedure parse_line(s: String); 



-I PURPOSE: 

—I This procedure is used to determine if the selected line is a directory 
—I or a file and if it is a directory it gets the identity of the directory. 

end Global; 



+++++++*++++*+++++*++++++++**+*************+***** 11 ******************************* 
**************************************************************** ********* 



~ *** TAE Plus Code Generator version V5.1 

„ *** pile: panmainmenub.a 

— *** Generated: Sep 1 21:37:24 1993 

— *** Revised by : Dogan Ozdemir 

************************************************************************** 

„ * 

-- * Panel_mainmenu — Package BODY 

__ * 

************************************************************************** 

with TAE; use TAE; 
with TextJO; 
with Global; 
use TextJO, Global; 

-ADDED 

with OPERATOR_MATCH_ROUTTNES, CREATE_OPERATOR_PARAMETER_FILES_PKG; 
use OPERATOR J^ATCH.ROUTINES, CREATE_OPERATOR_PARAMETER_FILES_PKG; 

— One ’’with" statement for each connected panel, 
with Panel_compsel; 

with Panel_keyword; 

package body Panel_mainmenu is 
-I NOTES: 

--I For each parameter that you have defined to be "event-generating" in 
—I this panel, there is an event handler procedure below. Each handler 
—I has a name that is a concatenation of the parameter name and "_Event". 

—I Add application-dependent logic to each event handler. (As generated 
—I by the WorkBench, each event handler simply logs the occurrence of 
-I the event.) 

-I 

—I You may want to flag any changes you make to this file so that if 
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—I you regenerate this file, you can more easily cut and paste your 
-I modifications back in. For example: 



generated code ... 

- (+) ADDED yourinitials 
your code ... 

- (-) ADDED 

more generated code ... 



-I REGENERATED: 

—I The following WorkBench operations will cause regeneration of this file: 
—I The panel’s name is changed (not title) 

—I For panel: 

--I mainmenu 

--I The following WorkBench operations will also cause regeneration: 

— 1 An item is deleted 

--I A new item is added to this panel 

-I An item’s name is changed (not title) 

—I An item's data type is changed 

-I An item's generates events flag is changed 

- 1 An item's valids changed (if item is type string and connected) 

—I An item's connection information changed 
--I For the panel items: 

—I cancel, browse, query, help, 

-I CHANGE LOG: 

-I 1 -Sep-93 TAE Generated 

-ADDED 

operator_file : file_type; 

type_file : file_type; 

operator_list : String(1..13):="operator_list”; 

type_list : String(1..9):="type_list"; 

Dummy : Boolean; 



— . Initialize_Panel - Subprogram BODY 



procedure Initialize_Panel 
( Collection_Read 

: in TAE.Tae_Co.Collection_Ptr ) is 

—I NOTES: (none) 

begin - Initialize_Panel 

Info := new TAE.Tae_Wpt.Event_Context; 

Info. Col lection := Collection_Read; 

TAE.Tae_Co.Co_Find (Info.Collection, ”mainmenu_v”, Info.View); 
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TAE.Tae_Co.Co_Find (Info. Collection, "mainmenu_t", Info.Target); 
exception 

when TAE.UNTNl l lALIZED_PTR => 

Text_IO.Put_Line ("Panel_mainmenu.Initialize_Panel: M 
& "Collection_Read not initialized.”); 
raise; 

when TAE.Tae_Co.NO_SUCH_MEMBER => 

Text_IO.Put_Line ("Panel_mainmenu.Initialize_Panel: " 

& "(View or Target) not in Collection."); 
raise; 

end Initialize^ an el; 
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Create_Panel 



-- Subprogram BODY 



procedure Create_Panel 
( Pane l_State 

: in TAE.Tae_Wpt.Wpt_Flags 
:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 
: in X_Windows.Window 
:= X_Windows.Null_Window ) is 



-I NOTES: (none) 
begin -- Create_Panel 

if Info.Panel_Id = Tae.Null_Panel_Id then 
TAE.Tae_Wpt.Wpt_NewPanel 
( Dummy => 

Data_Vm => Info.Target, 

View_Vm => Info.View, 

Re lative_ Window => Relative_Window, 

User_Context => Info, 

Flags => Panel_State, 

Panel_Id => Info.Panel_Id ); 

else 

Text_IO.Put_Line ("Panel (mainmenu) is already displayed."); 

end if; 

exception 

when TAE.UN1NTTIALIZEDJTR => 

Text_IO.Put_Line ("Panel_mainmenu.Create_Panel: 

& "Panel was not initialized prior to creation."); 
raise; 

when TAE.TAE_FAIL => 

TextJO.Put_Line ("Panel_mainmenu.Create_Panel: " 

& "Panel could not be created."); 
raise; 

end Create_Panel; 
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Connect_Panel 



— Subprogram BODY 



procedure Connect_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 
:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 
: in X_Windows. Window 
:= X_Windows.Null_Window ) is 

—I NOTES: (none) 

begin — Connect_Panel 

if Info.Panel_Id = Tae.Null_Panel_Id then 
Create_Panel 

( Relative_Window => Relative_Window, 

Panel_State => Panel_State ); 

else 

TAE.Tae_Wpt.Wpt_SetPanelState (Info.PanelJd, Panel_State); 
end if; 

exception 

when TAE.Tae_Wpt.BAD_STATE => 

Text_IO.Put_Line ("Panel_mainmenu.Connect_Panel: " 

& "Invalid panel state."); 
raise; 

end Connect_Panel; 
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Destroy_Panel 



— Subprogram BODY 



procedure Destroy_Panel is 
-1 NOTES: (none) 
begin — Destroy_Panel 

TAE.Tae_Wpt.Wpt_PanelErase(Info.Panel_Id); 

exception 

when T AE.T ae JW pt.B AD_P ANEL_ID => 

Text_IO.Put_Line (”Panel_mainmenu.Destroy_Panel: " 

& "Info.Panel_Id is an invalid id.”); 
raise; 

when TAE.Tae_Wpt.ERASE_NULL_PANEL => 

— This panel has not been created yet, or has already been destroyed. 

— Trap this exception and do nothing, 
null; 

end Destroy_Panel; 
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- begin EVENT HANDLERS 



cancel_Event -- Subprogram SPEC & BODY 



procedure cancel_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 



-I PURPOSE: 

—I EVENT HANDLER. Insert application specific information. 

-I 

--I NOTES: (none) 

Value : array (1..1) of String (l..TAE.Tae_Taeconf.STRINGSIZE); 
Count : TAE.Taeint; 

begin — cancel_Event 

— Begin default generated code 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 
Text_IO.Put ("Panel mainmenu, parm cancel: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 
Text_IO.Put_Line (Value(l)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

— End default generated code 
- ADDED 

Global.Set_Application_Done; 

— Begin generated code for Connection 

Destroy_Panel; 

TCL: Quit 

-- End generated code for Connection 
end cancel_Event; 
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browse_Event 



- Subprogram SPEC & BODY 



procedure browse_Event 
( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 

-I PURPOSE: 

—I EVENT HANDLER. Insert application specific information. 

--I 

—I NOTES: (none) 

Value : array (1..1) of String (l..TAE.Tae_Taeconf.STRINGSIZE); 
Count : TAE.Taeint; 

-ADDED 
N :integer:=l; 



begin — browse_Event 
— Begin default generated code 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 

Text_IO.Put ("Panel mainmenu, parm browse: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 
Text_IO.Put_Line (Value(l)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- End default generated code 

-- Begin generated code for Connection 

-ADDED 

strlen(library»N); 

if TAE.Tae_Misc.s_equal (Value(l), "Types") then null; 

-ADDED 

system_caU(corn&"tl "&library(l..N)&" ”&"type_lisf ); 

list_components(type_file,type_list,file_vec,num_of_comp); 

TAE.Tae_Wpt.Wpt_SetStringConstraints( 

Panel_compsel.Info.Panel_Id,"compser,taeint(num_of_comp),file_vec); 
Dummy:=TAE.Tae_Wpt.Wpt_Pending; 
system_call("rm type_list" ); 

Connect_Panel (TAE.Tae_Wpt.WPT_INVISIBLE); 
Panel_compsel.Connect_Panel (TAE.Tae_Wpt.WPT_VISIBLE); 

elsif TAE.Tae_Misc.s_equal (Value(l), "Operators") then null; 

-ADDED 

system_call(com&"ol "&hbrary(l..N)&" "&"operator_list"); 
list_components(operator_file,operator_list,file_vec > num_of_comp); 
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TAE.Tae_Wpt.Wpt_SetStringConstraints( 
Panel_compsel.lnfo.Panel_Id,”compser\taeint(num_of_comp),file_vec); 
Dummy;=TAE.Tae_Wpt.Wpt_Pending; 
system_call("rm operator Jist"); 

Connect_Panel (TAE.Tae_Wpt.WPT_INVISIBLE); 
Panel_compsel.Connect_Panel (TAE.Tae_Wpt.WPT_VISIBLE); 

end if; 

— End generated code for Connection 
end browse_Event; 
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query_Event 



— Subprogram SPEC & BODY 



procedure query_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 
-I PURPOSE: 

--I EVENT HANDLER. Insert application specific information. 

-I 

--I NOTES: (none) 

Value : array (1..1) of String (l..TAE.Tae_Taeconf.STRINGSIZE); 
Count : TAE.Taeint; 

-ADDED 

FINAL.MATCHES, 

OPERATOR_SIGNATURE_MATCHES : FILE_TYPE; 

NUM, 

LEN : INTEGER; 

NO_MATCH : BOOLEAN := TRUE; 

MATCH_FILE_NAME : STRING(l..ll) := Tmal_match"; 

begin — query _Event 

— Begin default generated code 

TAE.Tae_Vm.Vm_Extract_Count (lnfo.Parm_Ptr, Count); 
Text_IO.Put ("Panel mainmenu, pann query: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm__Ptr, 1, Value(l)); 
Text_IO.Put_Line (Value(l)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- End default generated code 

— Begin generated code for Connection 

if TAE.Tae_Misc.s_equal (Value(l), "Keyword") then null; 
Connect_Panel (TAE.Tae_Wpt.WPT_INVISIBLE); 
Panel_keyword.Connect_Panel (TAE.Tae_Wpt.WPT_VISIBLE); 

elsif TAE.Tae_Misc.s_equal (Value(l), "PSDL") then null; 
Connect_Panel (TAE.Tae_Wpt.WPT_INVISIBLE); 
Panel_compsel.Connect_Panel (TAE.Tae_Wpt.WPT_VISIBLE); 
- ADDED 

if COMPONENT_IS_OPERATOR then 

- get signature of query operator component 
systemic all(com2); 

— get all software base components that match query' 
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— component signature 

system_call(com&"cq Ada "&OPERATOR_FILE_NAME&" query _sig_match"); 

— load query operator component parameter mapping data structures 
THE_STATUS := QUERY.COMPONENT; 

CRE ATE_OPERATOR_PARAMETER_FILES (THE_ST ATU S , QC_IN_P ARAMS, QC JN_COUNT, 
QC_OUT_PARAMS, QC_OUT_COUNT, GEN_P ARAMS, GEN_COUNT, HAS_GENERICS, 
QC_NAME); 

— save queiy operator component psdl files 

system_call("cp "&Global.OPERATOR_FILE_NAME& M svopspec.txt"); 
system_call("cp "&Global.PROTOTYPE_FILE_NAME& M svprotspec.txt"); 

OPEN(OPERATOR_SIGNATURE_MATCHES, MODE => IN.FILE, 

NAME => ,, query_sig_match M ); 

CREATE(FINAL_MATCHES, MODE => OUT.FILE, 

NAME => MATCH_FILE_NAME); 

— continue to filter the matched components 

while not END_OF_FILE(OPERATOR_SIGNATURE_MATCHES) loop 
— get a candidate component 

GETJJNE(OPERATOR_SIGNATURE_MATCHES, COMPONENT, LEN); 



— get the component's name 
strlen(COMPONENT, LEN); 

— get the psdl file associated with that name 

system_call(com&"cv Ada ,, &COMPONENT(l..LEN)& M outpsdl outspec outbody"); 

— copy the software base component psdl file into the 

— appropriate files 

system_call('’cp outpsdl ”&OPERATOR_FILE_NAME); 
system_call("cp outpsdl "&PROTOTYPE_FILE_NAME); 



— load software base operator component parameter mapping 

— data structures 

THE.STATUS := SOFTWARE_BASE_COMPONENT; 
CREATE_OPERATOR_PARAMETER_FILES( 

THE_STATUS, SB C_IN_P ARAMS, SBC_IN_COUNT, 

SBC_OUT_P ARAMS, SBC_OUT_COUNT, GEN_P ARAMS, GEN.COUNT, 
HAS_GENERICS,SBC_NAME); 

if HAS_GENERICS then 



- see if an instantiation of the software component by the 

— query component is possible 

FINDJN ST ANTLATION (QC_IN_P ARAM S , QC_OUT_PARAMS, SB C_IN_P ARAMS, 
SBC_OUT_PARAMS, GEN.PARAMS, NO_MATCH); 



else 

— no generics in software base component so check to ensure 

— both components match at the Array component level (i.e. 

— array element and index) if the components have parameters 
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— of type Array 

M ATC H_ARRA Y S (QC_IN_PA RAM S , QC_OUT_PARAMS, SBC_IN_PARAMS, 
SB C_OUT_P ARAMS, NO.MATCH); 

end if; 



if not NO_MATCH then 

— software base component successfully passed this filter 

— so add it to ‘'final_match M file 
PUT_LINE(FrNAL_M ATCHES , COMPONENT); 

end if; 

end loop; 

C LOS E(OPER ATOR_SIGN ATURE_M ATC HES ) ; 

CLOSE(FINAL_MATCHES); 

— restore query operator component psdl files 
system_call( M cp svopspec.txt "&OPERATOR_FILE_NAME); 
system_call(”cp svprotspec.txt ”&PROTOTYPE_FILE_NAME); 

-- remove files that are no longer needed 
system_call( M rm svopspec.txt”); 
system_call( M rm svprotspec.txt"); 
system_call( M rm query_sig_match M ); 
system_call("rm outpsdl"); 
system.-CallC'rm outspec"); 
system_call("rm outbody”); 

else 

— get signature of query type component 
system_call(com3); 

-- get all software base components that match query 

— component signature 

system_caU(com&"cq Ada ”&TYPE_FILE_NAME&" M &MATCH_FILE_NAME); 



end if; 



- load the component selection TAE display item with 
-- the components listed in "finaLmatch" 

list_components(F!NAL_M ATCHES, MATCH_HLE_NAME, FILE.VEC, NUM); 
TAE.Tae_Wpt.Wpt_SetStringConstraints( 

PaneLcompsel.Info.PaneLId/’compser’.taeintfNUMJ^LE^VEC); 

Dummy :=TAE.Tae_Wpt.Wpt_Pending; 



— remove files that are no longer needed 
system_call( ,, rm "&MATCH_FILE_NAME); 

end if; 
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End generated code for Connection 



end query_Event; 



help_Event 



— Subprogram SPEC & BODY 



procedure help_Event 

( Info : in TAE.TaeJWpt.Event_Context_Ptr ) is 



-I PURPOSE: 

—I EVENT HANDLER. Insert application specific information. 

-I 

-I NOTES: (none) 

Value : array (1..1) of String (l..TAE.Tae_Taeconf. STRING SIZE); 
Count : TAE.Taeint; 

begin - help_Event 

-- Begin default generated code 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 
Text_IO.Put ("Panel mainmenu, parm help: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 
Text_IO.Put_Line (Value(l)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

-- End default generated code 
end help_Event; 
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- end EVENT HANDLERS 



— . Dispatch_Item — Subprogram BODY 



procedure Dispatch_Item 

( User_Context_Ptr : in TAETae_Wpt.Event_Context_Ptr ) is 
—I NOTES: (none) 
begin — Dispatch_Item 

if TAE.Tae_Misc.s_equal ("cancel", User_ContextJPtr.Parm_Name) then 
cancel_Event (User_Context_Ptr); 

elsif TAE.Tae_Misc.s_equal ("browse", User_Context_Ptr.Parm_Name) then 
browse_Event (User_Context_Ptr); 

elsif TAE.Tae_Misc.s_equal ("query", User_Context_Ptr.Parm_Name) then 
query _E vent (User_Context_Ptr); 

elsif TAE.Tae_Misc.s_equal ("help", User_Context_Ptr.Parm_Name) then 
help_Event (User_Context_Ptr); 

end if; 

end Dispat ch_Item; 
end Panel_mainmenu; 



********************************************************************************* 

********************************************************************************* 

********************************************************************************* 



~ *** TAE Plus Code Generator version V5.1 

- *** File. pan mappings.a 

- *** Generated: Sep 1 21:37:24 1993 

- *** Revised by Scott Dolgoff 

************************************************************************** 

__ * 

-- * Panel_mapping - Package SPEC 

__ * 

************************************************************************** 

with TAE; 
with X_Windows; 
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package Panel_mapping is 
-I PURPOSE: 

~l This package encapsulates the TAE Plus panel: mapping 

-I These subprograms enable panel initialization, creation, destruction, 

—I and event dispatching. For more advanced manipulation of the panel 
-I using the TAE package, the panel’s Event_Context (Info) is provided. 

—I It includes the Target and View (available after initialization) 

--I and the Panel_Id (available after creation). 

-I 

-I INITIALIZATION EXCEPTIONS: (none) 

~l 

-I NOTES: (none) 

-I 

-I REGENERATED: 

—I The following Workbench operations will cause regeneration of this file: 
—I The panel’s name is changed (not title) 

—I For panel: 

-I mapping 
-I 

-I CHANGE LOG: 

-I 1 -Sep-93 TAE Generated 



Info : TAE.Tae_Wpt.Event_Context_Ptr; - panel information 
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— Subprogram SPEC 



Initialize_Panel 



procedure Initialize _Panel 

( Collection_Read — TAE Collection read from 

: in TAE.Tae_Co.Collection_Ptr ); — resource file 



--I PURPOSE: 

—I This procedure initializes the Info.Target and Info. View for this panel 
-I 

-I EXCEPTIONS: 

--I TAE. UNIN 1TIALIZED_PTR is raised if Collection_Read not initialized 
—I TAE.Tae_Co.NO_SUCH ^MEMBER is raised if the panel is not in 
—I Collection_Read 
-I 

—I NOTES: (none) 



— . Create_Panel — Subprogram SPEC 



procedure Create_Panel 

( Panel_State -- Flags sent to Wpt_NewPanel. 

: in TAE.Tae_Wpt.Wpt_Flags 
:= TAE.T ae_Wpt . WPT_PREFERRED ; 

Relative_Window — Panel origin is offset from 

: in X_Windows. Window — this X Window. Null_Window 

:= X_Windows.Null_Window ); — uses the root window. 

--I PURPOSE: 

—I This procedure creates this panel object in the specified Panel_State 
--I and stores the panel Id in Info.Panel_ld. 

-I 

-I EXCEPTIONS: 

—I TAE. UNIN 1’1'1ALIZED_PTR is raised if the panel is not initialized 
--I TAE.T AE_F AIL is raised if the panel could not be created 
-I 

—I NOTES: (none) 
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Connect_Panel 



— Subprogram SPEC 



procedure Connect_Panel 



( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 
:= TAE.Tae_Wpt.WPT_PREFERRED; 



Relative_W indow 
: in X_Windows. Window 



— Panel origin is offset from 

-- this X Window. Null_Window 



:= X_Windows.Null_Window ); — uses the root window. 

—I PURPOSE: 

—I If this panel doesn’t exist, this procedure creates this panel object 
—I in the specifiec Panel_State and stores the panel Id in 
--I Info.PanelJd. 

—I If this panel does exist, it is set to the specified Panel_State. 

—I In this case, Relative_Window is ignored. 



-I EXCEPTIONS: 

-I TAE.UNLNITIALLZED_PTR is raised from Create_Panel if the panel is 
—I not initialized 

—I TAE.TAE_FAIL is raised from Create_Panel if the panel could not be 
—I created 

-I TAE.Tae_Wpt.BAD_STATE is raised if the panel exists and the 
—I Panel_State is an invalid state 



-I 



-I 

--I NOTES: (none) 
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Destroy_Panel 



— Subprogram SPEC 



procedure Destroy_Panel; 

—I PURPOSE: 

—I This procedure erases a panel from the screen and de-allocates the 
—I associated panel object (not the target and view). 

-I 

-! EXCEPTIONS: 

-I TAE.Tae_Wpt.BAD_PANEL_ID is raised if Info.Panel_Id is an invalid id. 
-I 

-I NOTES: 

—I Info.Panel_Id is set to TAE.NULL_PANEL_ID, and should not referenced 
--! in any Wpt call until it is created again. 



Dispatch_Item — Subprogram SPEC 



procedure Dispatch_Item 

( User_Context_Ptr — Wpt Event Context for a PARM 

: in TAE.Tae_Wpt.Event_Context_Ptr ); -- event. 

-I PURPOSE: 

--I This procedure calls the Event Handler specified by User_Context_Ptr 
-I 

-I EXCEPTIONS: 

-I Application-specific 
— ! 

~! NOTES: (none) 
end Panel_m apping ; 



********************************************************************************* 
***** *********** ********* ******** ****** ********** ****** ******** ***** ****** ******* 
********************************************************************************* 



— *** TAE Plus Code Generator version V5.1 

~ *** File: pan_mainmenu_b.a 

— ♦“Generated: Sep 1 21:37:24 1993 

— *** Revised by : Dogan Ozdemir 
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* 

— * Panel_mainmenu — Package BODY 

__ * 

__ ************************************************************************** 

with TAE; use TAE; 

with Text_IO; 

with Global; 

use Text_IO, Global; 

-ADDED 

with OPERATOR JvlATCHJ^OUTINES , CREATE_OPERATOR_PARAMETER_FTLES_PKG; 
use OPERATOR_MATCH_ROUTINES, CREATEJ3PERATOR_PARAMETER_FILES_PKG; 

~ One ’’with” statement for each connected panel, 
with Panel_compsel; 
with Panel_keyword; 

package body Panel_mainmenu is 

-I NOTES: 

—I For each parameter that you have defined to be "event-generating” in 
—I this panel, there is an event handler procedure below. Each handler 
--I has a name that is a concatenation of the parameter name and "_Evenf'. 

-I Add application-dependent logic to each event handler. (As generated 
—I by the WorkBench, each event handler simply logs the occurrence of 
—I the event.) 

—I You may want to flag any changes you make to this file so that if 
--I you regenerate this file, you can more easily cut and paste your 
—I modifications back in. For example: 

—I generated code ... 

—I - (+) ADDED yourinitials 
—I your code... 

-I --(-) ADDED 
—I more generated code ... 



-I REGENERATED: 

—I The following WorkBench operations will cause regeneration of this file: 
—I The panel’s name is changed (not title) 

—I For panel: 

-I mainmenu 

—I The following WorkBench operations will also cause regeneration: 

--I An item is deleted 

—I A new item is added to this panel 

—I An item's name is changed (not title) 

-I An item’s data type is changed 

--I An item's generates events flag is changed 

—I An item's valids changed (if item is type string and connected) 

—I An item’s connection information changed 
—I For the panel items: 

—I cancel, browse, query, help. 
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-I CHANGE LOG: 

—I 1- Sep-93 TAE Generated 



-ADDED 

operator_file : file_type; 

type_file : file_type; 

operator_list : String(1..13):=”operator_list”; 

type_list : String(1..9):=”type_list”; 

Dummy : Boolean; 



— . Initialize_Panel - Subprogram BODY 



procedure Initialize_Panel 
( Collection_Read 

: in TAE.Tae_Co.Collection_Ptr ) is 

—I NOTES: (none) 

begin — Initialize_Panel 

Info := new TAE.Tae_Wpt.Event_Context; 

Info.Collection := CoIlection_Read; 

TAE.Tae_Co.Co_Find (Info.Collection, ”mainmenu_v”, Info.View); 
TAE.Tae_Co.Co_Find (Info.Collection, ”mainmenu_t”, Info.Target); 

exception 

when TA£.UNINl i IALIZED_PTR => 

Text_IO.Put_Line ("Panel_mainmenu.Initialize_Panel: 

& ”Collection_Read not initialized.”); 
raise; 

when TAE.Tae_Co.NO_SUCH_MEMBER => 

Text_IO.PutJLine (”Panel_mainmenu.Initialize_Panel: " 

& ”(View or Target) not in Collection.”); 
raise; 

end Initialize_Panel; 
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Create_Panel 



-- Subprogram BODY 



procedure Create_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 
:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 
: in X_Windows. Window 
:= X_Windows.Null_Window ) is 



-I NOTES: (none) 
begin -- Create_Panel 

if Info.Panel_Id = Tae.Null_Panel_Id then 
TAE.Tae_Wpt.Wpt_NewPanel 
( Dummy => 

Data_Vm => Info. Target, 

View_Vm => Info. View, 

Relative_Window ; => Relative_Window, 

User_Context => Info, 

Flags => Panel_State, 

Panel_Id => Info.Panel_Id ); 

else 

Text_IO.Put_Line ("Panel (mainmenu) is already displayed."); 

end if; 

exception 

when TAE.UNTNTTIALIZED_PTR => 

Text_IO.Put_Line ("Panel_mainmenu.Create_Panel: " 

& "Panel was not initialized prior to creation."); 
raise; 

when TAE.TAE_FAIL => 

Text_IO.Put_Line ("Panel_mainmenu.Create_Panel: " 

& "Panel could not be created."); 
raise; 

end Create_Panel; 
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Connect_Panel 



~ Subprogram BODY 



procedure Connect_Panel 
( Panel_State 

: in TAE.Tae_Wpt.Wpt_Flags 
:= TAE.Tae_Wpt.WPT_PREFERRED; 

Relative_Window 
: in X_Windows. Window 
:= X_Windows.Null_Window ) is 

-I NOTES: (none) 

begin -- Connect_Panel 

if Info.Panel_Id = Tae.NuIJ_Panel_Id then 
Create_Panel 

( Relative_Window => Relative_Window, 

PanelJState => Panel_State ); 

else 

TAE.Tae_Wpt.Wpt_SetPanelState (Info.Panel_Id, Panel_State); 
end if; 

exception 

when TAE.Tae_Wpt.B ADJSTATE => 

Text_IO.Put_Line ("Panel_mainmenu.Connect_Panel: " 

& "Invalid panel state."); 
raise; 

end Connect_Panel; 
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Destroy_Panel 



— Subprogram BODY 



procedure Destroy_Panel is 
-I NOTES: (none) 
begin — Destroy _Panel 

TAE.Tae_Wpt.Wpt_PanelErase(Info.Panel_Id); 

exception 

when TAE.Tae_Wpt.B AD_PANEL_ID => 

Text_IO.Put_Line ("Panel_mainmenu.Destroy_Panel: 

& M Info.Panel_Id is an invalid id."); 
raise; 

when TAE.Tae_Wpt.ERASE_NULL_PANEL => 

— This panel has not been created yet, or has already been destroyed. 

— Trap this exception and do nothing, 
null; 

end Destroy_Panel; 
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- begin EVENT HANDLERS 



cancel_Event — Subprogram SPEC & BODY 



procedure cancel_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 



-I PURPOSE: 

—I EVENT HANDLER. Insert application specific information. 

-I 

-I NOTES: (none) 

Value : array (1..1) of String (L.TAE.Tae_Taeconf.STRINGSIZE); 
Count : TAE.Taeint; 

begin -- cancel_Event 

— Begin default generated code 

TAE.Tae_Vm.Vm_Extract_Count (Info.Parm_Ptr. Count); 
Text_IO.Put ("Panel mainmenu, parm cancel: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 
TextJO.Put_Line (Value(l)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

— End default generated code 
- ADDED 

Global.Set_Application_Done; 

— Begin generated code for Connection 

Destroy_Panel; 

TCL: Quit 

-- End generated code for Connection 
end cancel_E''ent; 
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browse_Event 



— Subprogram SPEC & BODY 



procedure browse_Event 
( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 



-I PURPOSE: 

-I EVENT HANDLER. Insert application specific information. 

-I 

--I NOTES: (none) 

Value : array (1..1) of String (l..TAE.Tae_Taeconf.STRINGSIZE); 
Count : TAE.Taeint; 

-ADDED 
N :integer:=l; 



begin -- browse_Event 

— Begin default generated code 

TAE.Tae_Vm.Vm_Extract_Count (lnfo.Parm_Ptr, Count); 

Text_IO.Put ("Panel mainmenu, parm browse: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 
Text_IO.Put_Line (Value(l)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

— End default generated code 

— Begin generated code for Connection 

-ADDED 

strlen(libraryj^); 

if TAE.Tae_Misc.s_equal (Value(l), "Types") then null; 

-ADDED 

system_call(com&"tl ”&library(l..N)&" "& M type_list"); 

list_components(type_file,type_list,file_vec,num_of_comp); 

TAE.Tae_Wpt.Wpt_SetStringConstraints( 

Panel_compsel.Info.Panel_Id,"compser\taeint(num_of_comp),file_vec); 
Dummy:=TAE.Tae_Wpt.Wpt_Pending; 
system_call("rm type_list"); 

Connect_Panel (TAE.Tae_Wpt.WPT_INVISIBLE); 
Panel_compsel.Connect_Panel (TAE.Tae_Wpt.WPT_VISIBLE); 

elsif TAE.Tae_Misc.s_equal (Value(l), "Operators") then null; 

-ADDED 

system_call(com&"ol "&library(l..N)&" "&"operator_list"); 
list_components(operator_file,operator_list,file_vec,num_of_comp); 
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TAE.Tae_Wpt.Wpt_SetStringConstraints( 

Panel_compsel.Info.Panel_Id,"compser\taeint(num_of_cornp),file_vec); 
Dummy:=TAE.Tae_Wpt.Wpt_Pending; 
system_call("rm operator_list M ); 

Connect.Panel (TAE.Tae_Wpt.WPT_INVISIBLE); 
Panel_compsel.Connect_Panel (TAE.Tae_Wpt.WPT_VISIBLE); 

end if; 

— End generated code for Connection 
end browse_Event; 
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query _Event 



— Subprogram SPEC & BODY 



procedure query_Event 

( Info : in TAETae_Wpt.Event_Context_Ptr ) is 
-I PURPOSE: 

—I EVENT HANDLER. Insert application specific information. 

-I 

—I NOTES: (none) 

Value : array (1..1) of String (l.TAE.Tae_Taeconf.STRINGSIZE); 
Count : TAE.Taeint; 

-ADDED 

FTNAL.MATCHES, 

OPERATOR_SIGNATURE_MATCHES : FILE.TYPE; 

NUM, 

LEN : INTEGER; 

NO.MATCH : BOOLEAN := TRUE; 

MATCH_FILE_NAME : STRING(l..l 1) := "final_match"; 

begin — query _Event 

-- Begin default generated code 

TAETae_Vm.Vm_Extract_Count (Info.Parm_Ptr, Count); 
Text_IO.Put ("Panel mainmenu, parm query: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 
Text_IO.Put_Line (Value(l)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

— End default generated code 

-- Begin generated code for Connection 

if TAE.Tae_Misc.s_equal (Value(l), "Keyword") then null; 
Connect.Panel (TAE.Tae_Wpt.WPT_INVISIBLE); 
Panel_keyword.Connect_Panel (TAE.Tae_Wpt.WPT_VISIBLE); 

elsif TAE.Tae_NIisc.s_equal (Value(l), "PSDL") then null; 
Connect_Panel (TAE.Tae_Wpt.WPT_INVISlBLE); 
Panel_compsel.Connect_Panel (TAE.Tae_Wpt.WPT_VISIBLE); 
- ADDED 

if COMPONENT_IS_OPERATOR then 

~ get signature of query operator component 
system_call(com2); 

— get all software base components that match query 
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-- component signature 

system_caU(com&"cq Ada "&OPERATOR_FILE_NAME& M query _sig_match"); 

— load query operator component parameter mapping data structures 
THEJSTATUS := QUERY_COMPONENT; 

CREATE_OPERATOR_PARAMETER_FTLES(THE_STATUS, QC_IN_P ARAMS, QC_IN_COUNT, 
QC_OUT_PARAMS, QC_OUT_COUNT, GEN_P ARAMS, GEN.COUNT, H AS_GENERICS , 
QC_NAME); 

— save query operator component psdl files 

system_call( M cp "&Global.OPERATOR_FILE_NAME&" svopspec.txt"); 
system_call("cp M &Global.PROTOTYPE_FILE_NAME& M svprotspec.txt"); 

OPEN (OPERATOR_SIGN ATXJRE_MATCHES , MODE => IN.FILE, 

NAME => "query _sig_match”); 

CREATE(FINAL_MATCHES, MODE => OUT.FILE, 

NAME=> MATCH_FILE_NAME); 

— continue to filter the matched components 

while not END_OF_FILE(OPERATOR_SIGNATURE_MATCHES) loop 

— get a candidate component 

GETJJNE(OPERATOR_SIGNATURE_MATCHES, COMPONENT, LEN); 

— get the component's name 
strlen(COMPONENT, LEN); 

-- get the psdl file associated with that name 

system_caU(com&"cv Ada "&COMPONENT(l..LEN)&" outpsdl outspec outbody"); 

-- copy the software base component psdl file into the 

— appropriate files 

system_call("cp outpsdl "&OPERATOR_FILE_NAME); 
system_call("cp outpsdl "&PROTOTYPE_FTLE_NAME); 

— load software base operator component parameter mapping 
-- data structures 

THE.STATUS := SOFTWARE_BASE_COMPONENT; 
CREATE_OPERATOR_PARAMETER_FILES( 

THE.STATUS, SB C_IN_P ARAMS, SBCJN.COUNT, 

SBC_OUT_P ARAMS, SBC_OUT_COUNT, GEN_P ARAMS, GEN.COUNT, 
HAS_GENERICS,SBC_NAME); 

if HAS_GENER1CS then 

— see if an instantiation of the software component by the 

— query component is possible 

FIND.IN ST ANTIATION (QC_IN_P ARAM S , QCOUT.PARAMS, SBC JN.P ARAMS, 
SBC.OUT.PARAMS, GEN.PARAMS, NO.MATCH); 



else 

— no generics in software base component so check to ensure 

— both components match at the Array component level (i.e. 

— array element and index) if the components have parameters 
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- of type Array 

MATCH_ARRAYS(QC_IN_PARAMS, QC_OUT_P ARAMS, SBC_IN_PARAMS, 
SBC_OUT_P ARAMS, NO_MATCH); 

end if; 



if not NO.MATCH then 

— software base component successfully passed this filter 

— so add it to "finaLmatch" file 

PUT JJNE(FINAL_M ATCHES , COMPONENT); 

end if; 
end loop; 

CLOSE(OPERATOR_SIGNATURE_MATCHES); 

CLOSE(FINAL_MATCHES); 

— restore query operator component psdl files 
system_call("cp svopspec.txt "&OPERATOR_FILE_NAME); 
system_call("cp svprotspec.txt "&PROTOTYPE_FILE_NAME); 

— remove files that are no longer needed 
system_call("rm svopspec.txf'); 
system_call("rm svprotspec.txt"); 
system_call("rm query_sig_match"); 
system_call("rm outpsdl"); 
system_call("rm outspec"); 
system_call( M rm outbody"); 

else 

— get signature of query type component 
system_call(com3); 

— get all software base components that match query 
-- component signature 

system_call(com&"cq Ada "&TYPE_FILE_NAME& H "&MATCH_FILE_NAME); 



end if; 



- load the component selection TAE display item with 

— the components listed in "final_match" 

lis t_components( FIN A L_M ATCHES, MATCH_FILE_NAME, FELE_VEC, NUM); 
TAE.Tae_Wpt.Wpt_SetStringConstraints( 

Panel_compsel.Info.Panel_Id,"compser,taeint(NUM),FILE_VEC); 

Dummy:=TAE.Tae_Wpt.Wpt_Pending; 



— remove files that are no longer needed 
system_call("rm "&MATCH_FILE_NAME); 

end if; 
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— End generated code for Connection 
end query JEvent; 



help_Event 



— Subprogram SPEC & BODY 



procedure help_Event 

( Info : in TAE.Tae_Wpt.Event_Context_Ptr ) is 
—I PURPOSE: 

--! EVENT HANDLER. Insert application specific information. 

— ! 

-I NOTES: (none) 

Value : array (1..1) of String (l..TAE.Tae_Taeconf.STRINGSIZE); 
Count : TAE.Taeint; 

begin -- help_Event 

— Begin default generated code 

TAE.Tae_Vm.Vm_Extract_Count (Info.ParmJPtr, Count); 
TextJO.Put ("Panel mainmenu, parm help: value = "); 
if Count > 0 then 

TAE.Tae_Vm.Vm_Extract_SVAL (Info.Parm_Ptr, 1, Value(l)); 
Text_IO.Put_Line (Value(l)); 
else 

Text_IO.Put_Line ("none"); 
end if; 

— End default generated code 
end help_Event; 
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- end EVENT HANDLERS 



Dispatch_Item — Subprogram BODY 



procedure Dispatch_Item 

( User_Context_Ptr : in TAE.Tae_WptEvent_Context_Ptr ) is 
~l NOTES: (none) 
begin — Dispatch_Item 

if TAE.Tae_Misc.s_equal (’’cancer, User_Context_Ptr.Parm_Name) then 
cancel_Event (User_Context_Ptr); 

elsif TAE.Tae_Misc.s_equal (’’browse”, User_Context_Ptr.Parm_Name) then 
browse_Event (User_Context_Ptr); 

elsif TAE.Tae_Misc.s_equal (“query”, User_Context_Ptr.Parm_Narne) then 
query _Event (User_Context_Ptr); 

elsif TAE.Tae_Misc.s_equal ("help”, User_Context_Ptr.Parm_Name) then 
help_Event (User_Context_Ptr); 

end if; 

end Dispatch Jtem; 
end Panel_mainmenu; 
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